WorksheetFunction.Unicode (Excel)

Retorna o número ponto de código correspondente ao primeiro caractere do texto.

Unicode (Arg1)

Arg1: Caractere para o qual você deseja o valor Unicode.

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