' Zu speicherndes Bytearray anlegen und mit 0 füllen
Dim textBytes(399) As Byte
For i As Integer = 0 To textBytes.Length - 1
   textBytes(i) = 0
Next
 
' Zu speichernder Text
Dim text As String = "Hallo Welt"
 
' Text im bereits angelegten Byte-Array speichern
Encoding.UTF8.GetBytes(text, 0, text.Length, textBytes, 0)

' Byte-Array wieder in Text umwandeln
Dim text2 As String = Encoding.UTF8.GetString(textBytes)

Ralf