WorksheetFunction.Dbcs (Excel)

Converte letras de meia largura byte único em uma sequência de caracteres em caracteres de largura total (byte duplo). O nome da função (e os caracteres que ela converte) depende das configurações de idioma. String de leitura/gravação.

Dbcs (Arg1)

Arg1: O texto ou a referência a uma célula que contém o texto que você deseja alterar.

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