WorksheetFunction.Unicode (Excel)

Devuelve el número (punto de código) correspondiente al primer carácter del texto.

Unicode (Arg1)

Arg1: Carácter al que desea obtener el valor Unicode.

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