Suddendly terminating sub ;-(

[Jhd.Honza]

I have some code like this:

  Select Case UCase(todo)
   Case ...
   Case "SENDF"
    ...
    HostSendFile ...
   Case ...
   Case Else
  End Select
 End Sub

 Sub HostSendFile(FileName As String)
  ...
   If HostFile.State = sckConnected Then 'Winsock
    ...
   Else
    ...
   End If
  ...
  Open ...
  ...
 End Sub

I succesfuly pass the select case routine to call HostSendFile. But I have found, that practically allways is this sub terminated (I tried to debug the sub and suddenly it hopped to End Select statement). At first, I thought it is the winsock's error, because it was happening at if routine; but later I found it is happening whenever in this sub.

How to run the sub to the end or where is the problem?

Brute force method:

[code]
dim errpoint as integer
<font color="#00007F">On</font> error goto Someplace

errpoint=0
1st line of suspected code

errpoint=1
2nd line of suspected code
.....


Someplace:
debug.print errpoint

Good Luck
DefFarm

Why did my post come up with the funny stuff before the code?


I used the openbracket code closebracket keyword.

DerFarm