Dim strRetornoInput as StringstrRetorno = InputBox(.....strRetorno = strRetorno.Substring(0, "QuantidadeDeCaracteresDesejado")
Espero ter ajudado.
"Emerson Mac" escreveu: