Imports System.Text
 
' ...
 
Dim i As Integer = AllBytes.IndexOf(Byte(21))
While i <= AllBytes.Count
   Dim str As String = UnicodeEncoding.GetString(AllBytes, i, 20)
   ' Hier String verarbeiten
   i += 20
End While

Ralf