' Buffer to store the Bytes
        Dim data_send(1024) As Byte
        Dim s As Integer = 0
        Dim bytes As Integer
 
        ' Werte von der TB holem
        Dim pos As Int32 = txt_setspeed.Text
        Dim speed As Int32 = txt_setpos.Text
 
 
        data_send = (BitConverter.GetBytes(pos))
        data_send = (BitConverter.GetBytes(speed ))