Strings in VBA

Einzelne Zeichen extrahieren: Mid()
In ASCII umwandeln: Asc()

Hallo!

z.B. so:

Sub string_to_ascii_value()

Dim text As String
Dim i, ascii_value As Integer

text = "Hallo"
For i = 1 To Len(text)
    ascii_value = (Asc(Mid(text, i, 1)))
    'MsgBox (ascii_value)
Next i

End Sub

Je nachdem was Du mit Deinen ASCII-Werten anfangen willst, kannst du
sie ja z.B. in ein Array speichern...

Pete

supper danke!!


mfg mathias