EXCELer

Se limitarmos o comprimento da String de output, por exemplo para 11 dígitos, o nome sai truncado:


Código do exemplo:


Sub NameWidth()
Dim Name As String * 11 ' O caracter "* NN" indica o número máximo de
' dígitos pretendido para a String

Name = InputBox("Digite o seu Nome")
Range("A1") = Name
Name = InputBox("Digite o seu Nome")
Range("A2") = Name

End Sub