Utilizando sockets

[Holden]

Mirá aca te mando una forma que uso yo para corregir los errores, tendras que adaptarlo a tu proyecto pero no es muy dificil.
Espero que te sirva.

Private Sub Form_Load()
ruta = "c:\prueba.txt"
On Error GoTo AtrapoError
Open ruta For Input As 1#
Label2.Caption = ruta
Exit Sub


AtrapoError:
If Err.Number = 53 Then
CD1.ShowOpen
ruta = CD1.FileName
Resume
Else
MsgBox "Se produjo un error " & Err.Number & " " & Err.Description
End If
End Sub