WorksheetFunction.Asc (Excel)

For double-byte character set (DBCS) languages, changes full-width (double-byte) characters to half-width (single-byte) characters.

WorksheetFunction.Asc() is not equivalent to Asc(), which converts a string to an integer.

Asc (Arg1)

Arg1: The text or a reference to a cell that contains the text that you want to change. If the text does not contain any full-width letters, the text is not changed.

Dim strArg1 As String: strArg1 = 
Dim str As String
str = WorksheetFunction.Asc(Arg1:=strArg1)