anyone help me??

[Night]

I want to implent imaxhubs into my script!

Its like this

iHubs=-1
If Left(sCurData,13)="$MyINFO $ALL " Then
sD=Split(Mid(sCurData,15+Len(CurUser.sName)),"$")
If InStr(sD(0),"<++ ")>0 Then
sDcpp=Split(Mid(sD(0),InStrRev(sD(0),"<++ ")+4,Len(sD(0))-InStrRev(sD(0),"<++ ")-4),",")
For i=0 to UBound(sDcpp)
Select Case Left(sDcpp(i),2)
Case "H:"
iHubs=CDbl(Mid(sDcpp(i),3))
End Select
Next
Else
curUser.SendData CStr("$Search Hub:"+sBotName+" F?F?0?0?.|")
End If
End If

If iHubs>-1 And Not curUser.bOperator Then
sMessage=""
End If

If iHubs>iMaxHubs Then
sMessage="You have "+CStr(iHubs)+" hubs open and maximum in this hub is "+CStr(iMaxHubs)+". You have been disconnected."
End If
If sMessage<>"" Then
curUser.PrivateMessage cStr(sBotName),cStr(sMessage)
frmHub.DoEventsForMe
curUser.Disconnect()
End If
End Sub ------------>>> here is the problem my script continue, so I cant have End Sub , if I remove end sub it says expected sub, what do I write insted!!

thank you for your help!

If Left(sCurData, and soo onnnn

[TheNOP]

it must end with End Sub
to check $MyINFO on CurUser.sName it need to be within the Sub DataArrival,witch is trigger each time a user connect/talk with the hub.