Code Falling through

Here is the code, it is falling through at mopen_click.

If Mid(gGoodIPAddr, 1, 1) = 0 Then
Dim i As Integer
'global variables
'RemoteIPAd = txtTermIP.Text
'loginName = TxtLoginName.Text
'passWord = txtPassword.Text
For i = 1 To 10
gscriptWait(i) = loginName
gscriptWait(1) = passWord
Next i

tempIncomingData = " "

mOpen_Click '???? control comes back from this module without finishing.


term_init Me, WinsockClient
If vNoConnection = False Then
GetMacandSerialFromFile
WriteToDatabase
Else
vLoginYN = False
vLoginTF = 0
vRevisionLevel = "--"
vMacAddr = "-"
vSerialNbr = "-"
vIPTF = 1
WriteToDatabase
End If
mopen_click is supposed to start a telnet session and pole an ip address. the telnet session does not start and control returns to term_init me, winsockclient. Any help will be appreciated.

Thanks
Joe

You are missing an "End If" for the first line of the procedure, but I don't know if that is your problem.

I didn't copy all the code. I do have the End if at the bottom.
Thanks,
Joe