Private Function getSubString(ByVal b As Byte(), ByRef o As Integer) As _
      Byte()
        Dim bl As New List(Of Byte)
        Do
            bl.Add(b(o))
            o += 1
        Loop While b(o) <> 0
        o += 1
        Return bl.ToArray()
    End Function
 
    Private Sub Test()
        Dim bytes() As Byte = New Byte() {33, 0, 0, 0, 65, 66, 67, 0, 68, 69, _
          70, 71, 0}
 
        Dim int1 As Integer = BitConverter.ToInt32(bytes, 0)
        Dim buff() As Byte
        Dim off As Integer = 4
        buff = getSubString(bytes, off)
        Dim str1 As String = System.Text.Encoding.ASCII.GetString(buff)
        buff = getSubString(bytes, off)
        Dim str2 As String = System.Text.Encoding.ASCII.GetString(buff)
        ' usw
    End Sub

        Dim off As Integer = 4
        Dim len As Integer
 
        len = Array.IndexOf(bytes, CByte(0), off) - off
        Dim strn1 As String = System.Text.Encoding.ASCII.GetString(bytes, off, _
          len)
        off += len + 1
        len = Array.IndexOf(bytes, CByte(0), off) - off
        Dim strn2 = System.Text.Encoding.ASCII.GetString(bytes, off, len)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist