Zitat:

findet StrConv() im Byte-Array eine doppelt 0 bricht sie automatisch die Konvertierung zu Unicode ab.

Dim bla(5) As Byte
 
bla(0) = 97
bla(1) = 98
bla(4) = 145
bla(5) = 146
 
Dim str As String
str = StrConv(bla, vbUnicode)
 
Dim tmpStr As String
 
Dim i As Long
For i = 1 To Len(str)
    tmpStr = tmpStr & " " & AscW(Mid(str, i, 1))
Next
 
Debug.Print "Länge: " & Len(str) & ", Code Points:" & tmpStr