Formato numérico de un InputBox

Hola Manuel,

Puedes emplear la función Format

Range("_Benef").Value = format(Benef,"#,##0") & "- NIT -" &
format(NNit,"#,##0")

Un saludo,
Juan

"ElProfe" escribió

De nuevo yo!

Por favor, como puedo definir el formato de una cantidad numerica
obtenida de la siguiente manera:

1) Solicito el nombre de un beneficiario, así:
Benef = UCase(InputBox("Nombre del beneficiario", "Beneficiario", ,
8000, 5000))

2) Solicito la cantidad con un InputBox y la almaceno en una variable,
así:
NNit = InputBox("Ingresar número de identidad tributaria)", "NIT -
Número Identidad Tributaria", 0, 8000, 5000)

3) Luego concateno los dos datos ateriores, así:
Range("_Benef").Value = Benef & "- NIT -" & NNit

Todo funciona bien, pero necesito que el dato que ingresa en "NNit",
cuando se concatene con "Benef", use separadores de miles (ej.
51,222,333 ó 860,342,243), pues el resultado que estoy obteniendo
por ahora es 51222333 ó 860342243

Gracias anticipadas por su atención y ayuda

Saludos,

Manuel

Hola Juan M.:

Gracias por tu ayuda; el código es justo lo que estaba necesitando.

Gracias de nuevo.

Saludos,

Manuel