AscW

Public Function AscW(ByVal InputString As String) As Long

Returns the unicode character code of the (first character) of the specified string as 32 bit long.

Dim lUnicodeCode As Long = AscW(pInputString)

See also: