' arnelgp
Sub zuASCII()
Dim str1 As String, str2 As String
Dim i As Integer
Dim x() As Byte
str1 = Cells(1, 1).Value '(in dieser Zelle steht der Text)
' assign str1 to x
x = str1
' now X will contain 115,0,116,0,101,0...(ascii seperated with "0")
'
' loop through each element of byte array
For i = 0 To UBound(x) Step 2
Debug.Print x(i)
Next
'
' convert the array of byte again to string
str2 = x
Debug.Print str2
End Sub
note: the Loop (For i = 0...) is not necessary, it is only there to show the values of x (Array of bytes).