Private Sub Timer1_Timer()
retur:
        Winsock1.SendData "paket1:" '<< hier wird  ein text gesendet
        DoEvents
Sleep 2000
TimeOut = TimeOut + 1
If TimeOut = 2 Then 
GoTo weiter1 '<< zeit abgelaufen die verbindung steht nicht mehr
Else
  If Connectchek = True Then '<< zeit ist noch nicht abgelaufen somit prüfen 
  ' wir ob wir eine meldung bekommen haben
  Connectchek = False '<< wir haben die antwort bekommen die verbindung steht 
  ' und wir setzten die variable auf false
Label1.Caption = "verbindung steht"
TimeOut = 0
  Else
    DoEvents
  GoTo retur '<< die variable wurde nicht auf true gesetzt, somit senden wir 
  ' noch ein text
  End If
End If
 
Exit Sub
weiter1:
 Label1.Caption = "verbindungs Fehler"
    TimeOut = 0
End Sub

Dim Empfang As String
    Winsock1.GetData Empfang, vbString
    EmpMsg = Split(Empfang, ":")
    Select Case EmpMsg(0)
Case "paket1" '<< wir haben eine meldung bekommen nun senden wir eine antwort
  Winsock1.SendData "paket2:"
Case "paket2" << wir haben die antwort bekommen nun setzten wir die varieable _
  auf true 
  Connectchek = True
    Case Else
    MsgBox "Fehler " & EmpMsg(0) 
   End Select

If Winsock1.State <> sckClosed Then
oder 
If Winsock1.State <> sckError Then sowie If Winsock1.State <> sckConnected Then