WorksheetFunction.Dbcs (Excel)

Converts half-width (single-byte) letters within a character string to full-width (double-byte) characters. The name of the function (and the characters that it converts) depends upon the language settings.

Dbcs (Arg1)

Arg1: The text or a reference to a cell that contains the text that you want to change.

Dim strArg1 As String: strArg1 = 
Dim strDbcs As String
strDbcs = WorksheetFunction.Dbcs(Arg1:=strArg1)