VB6 Winsock gibt Fehler raus

Private Sub Command1_Click()->Connect-Button
 On Error GoTo Fehler

 If Option1.Value = True Then->Option1=Connect
  Winsock.RemotePort = XX
  Winsock.RemoteHost = Combo1.Text

  Winsock.Connect
 End If

 If Option2.Value = True Then->Option2=Listen
  Label2.Caption = Listen
  Winsock.LocalPort = XX
  Winsock.Listen
 End If

Exit Sub
Fehler:
 MsgBox Err.Number &   & Err.Description, 16 + 0, Winsock
End Sub

Private Sub Command2_Click()
 Winsock.SendData Text1.Text
End Sub

Private Sub Timer1_Timer()
 Select Case Winsock.State
  Case sckConnected
   Label1.Caption = Connected
  Case sckClosed
   Label1.Caption = Closed
  Case sckError
   Label1.Caption = Error
 End Select
End Sub

Private Sub Winsock_ConnectionRequest(ByVal requestID As Long)
 If Option1.Value = True Then Exit Sub->Option1=Connect
 
 Winsock.Accept requestID
End Sub

Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
 Dim strNachricht As String

 Winsock.GetData strNachricht
 Text1.Text = Text1.Text & strNachricht
End Sub

Private Sub Winsock_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
 MsgBox Err.Number &   & Err.Description, 16 + 0, Winsock
End Sub

If Winsock.State <> 0 Then Winsock.Close