...
Sub Globals
Dim conv As ByteConverter
End Sub
Sub Activity_Create(FirstTime As Boolean)
conv.LittleEndian = True
Dim PaddedString As String = "abcdefghijklmnopqrstuvwxyzabcdefghijklmnoá "
Log("padddestring " & PaddedString.Length & " >" & PaddedString & "<")
Dim data() As Byte = conv.StringToBytes(PaddedString, "UTF8")
Log("Data Len before " & data.Length)
If data.Length mod 8 <> 0 Then
Dim tmpdata(PaddedString.Length) As Byte
Log("data len " & data.Length)
conv.ArrayCopy(data,0,tmpdata,0,PaddedString.Length-1)
data = tmpdata
End If
Log("Data after: " & data.Length)
End Sub
...