WorksheetFunction.Unicode (Excel)

Returns the number (code point) corresponding to the first character of the text.

Unicode (Arg1)

Arg1: Character that you want the Unicode value of.

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