I have some code like this:

Code:
  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?