Sub SendSerialData()
 
        Dim tx_string As String = TextBox4.Text
        Dim SendBytes As Byte()
 
 
 
        'schreibe Hex werte in das tx_buf array, z.B. es steht folgendes in der 
        ' TextBox "F7 03 00 01...", 
        ' jedes Byte (F7, 03...)wird einzeln  in dar array geschrieben
        tx_buf = tx_string.Split(" ")
        'SendBytes bekommt die größe des tf_buf zugewiesen
        ReDim SendBytes(UBound(tx_buf)) 'match the number of rows
 
        For i = 0 To UBound(tx_buf)
            ' hier wollte ich eigentlich das tx_buf string array in ein byte 
            ' array umwandeln, 
            ' kriege aber Fehlermeldungen
            SendBytes(i) = StrConv(tx_buf(i), vbNarrow)
        Next
 
        ' hier sende Daten über Serial Port
        SerialPort1.Write(SendBytes, 0, SendBytes.Length)
    End Sub