Private Sub ClientThread()
        Try
         	'Socket verbindet
            Do
		'Nachrichten werden falls vorhanden gelesen
            Loop
        Catch SocketException As SocketException
                'Fehlermeldung ausgeben
        Finally
		'Socket schließen
        End Try
Exit Sub

Thread.Abort
Thread.Join
'irgendwas ausführen