Private Sub cmd_DateienHolen_Click()
 
Debug.Print Winsock.State
    Grid1.TextMatrix(zaehler, 9) = vbNullString
    With Winsock
        .Close
        .Protocol = sckTCPProtocol
        .LocalPort = 5000
        .RemotePort = 5000
        DoEvents
        .RemoteHost = Grid1.TextMatrix(zaehler, 3)
        .Connect .RemoteHost, .RemotePort
        DoEvents
 
        Do
            DoEvents
            Wait 200
        Loop Until Winsock.State = sckConnected Or Winsock.State = sckError
 
        If Winsock.State = 7 Then
            .SendData Grid1.TextMatrix(1, 4)
        Else
        Do
            DoEvents
            Wait 200
        Loop Until Winsock.State = sckClosed
 
        End If
        Debug.Print Winsock.State
    End With
 
End Sub