WorksheetFunction.Dbcs (Excel)

Convierte las letras de un byte contenidas en una cadena de caracteres en caracteres de dos bytes. El nombre de la función (y los caracteres que se convierten) depende de la configuración de idioma. String de lectura y escritura.

Dbcs (Arg1)

Arg1: Texto o referencia a una celda que contiene el texto que desea cambiar.

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