WorksheetFunction.Unicode (Excel)

Gibt die Nummer (Codepunkt) zurück, die dem ersten Zeichen des Texts entspricht.

Unicode (Arg1)

Arg1: Zeichen, dessen Unicode-Wert Sie möchten.

Dim strArg1 As String: strArg1 = 
Dim dblUnicode As Double
dblUnicode = WorksheetFunction.Unicode(Arg1:=strArg1)