Dim s As String
   Dim b() As Byte
   Dim c() As String
   Dim i As Long
 
   s = "Das ist ein Teststring"
   'String in ein Byte-Array zerlegen ( geht schneller als
   'Stringfunktionen)
   b = StrConv(s, vbFromUnicode)
 
   s = ""
   For i = 0 To UBound(b()) - 1
      s = s & Chr(b(i))
      If i > 0 And (i Mod 4) = 0 Then s = s & "~"
   Next
 
   c = Split(s, "~")
 
   Debug.Print c(1)