Dim tcpClient As New System.Net.Sockets.TcpClient
        Dim i As Integer = 0
 
        tcpClient.Connect(IPAdr, Port) 'von label eingelesen
 
        Dim networkStream As NetworkStream = tcpClient.GetStream
 
        If networkStream.CanWrite And networkStream.CanRead Then
            For j As Integer = 1 To 12
                Dim sendBytes As Byte() = Encoding.ASCII.GetBytes( _
                  ";MMI-CL-IITB;M1;MK" & j & "COL;" & Daten(j))
                networkStream.Write(sendBytes, 0, sendBytes.Length)
                Dim recbytes(tcpClient.ReceiveBufferSize) As Byte
                networkStream.Read(recbytes, 0, CInt( _
                  tcpClient.ReceiveBufferSize))
            Next
        End If
 
        If networkStream.CanWrite And networkStream.CanRead Then
            Dim sendBytes As Byte() = Encoding.ASCII.GetBytes( _
              ";MMI-CL-IITB;M1;SZVR1;" & Daten(13))
            networkStream.Write(sendBytes, 0, sendBytes.Length)
            Dim recbytes(tcpClient.ReceiveBufferSize) As Byte
            networkStream.Read(recbytes, 0, CInt(tcpClient.ReceiveBufferSize))
        End If
 
        If networkStream.CanWrite And networkStream.CanRead Then
            Dim sendBytes As Byte() = Encoding.ASCII.GetBytes( _
              ";MMI-CL-IITB;M1;SZVR2;" & Daten(14))
            networkStream.Write(sendBytes, 0, sendBytes.Length)
            Dim recbytes(tcpClient.ReceiveBufferSize) As Byte
            networkStream.Read(recbytes, 0, CInt(tcpClient.ReceiveBufferSize))
        End If
 
        If networkStream.CanWrite And networkStream.CanRead Then
            Dim sendBytes As Byte() = Encoding.ASCII.GetBytes( _
              ";MMI-CL-IITB;M1;BZustand;" & Daten(16))
            networkStream.Write(sendBytes, 0, sendBytes.Length)
            Dim recbytes(tcpClient.ReceiveBufferSize) As Byte
            networkStream.Read(recbytes, 0, CInt(tcpClient.ReceiveBufferSize))
        End If
        If networkStream.CanWrite And networkStream.CanRead Then
            Dim sendBytes As Byte() = Encoding.ASCII.GetBytes( _
              ";MMI-CL-IITB;M1;SZustand;" & Daten(15))
            networkStream.Write(sendBytes, 0, sendBytes.Length)
            Dim recbytes(tcpClient.ReceiveBufferSize) As Byte
            networkStream.Read(recbytes, 0, CInt(tcpClient.ReceiveBufferSize))
        End If

mfg
rt