Alinear numeros a la derecha

[E N T E R]

Tengo este codigo que alinea los numero de hacia la derecha pero al llegar a mas de 1.000.000 ("un millon") me tira un Error 5 en tiempo de ejecucion.
Llamada a procedimiento o argumento no válido

CODIGO

Código: (VB) [Seleccionar]

Function AlignRight(NData, CFormat) As String
 
    If NData > 0 Then
     
        AlignRight = Format(NData, CFormat)
        AlignRight = Space(Len(CFormat) - Len(AlignRight)) + AlignRight
     
    Else
     
        AlignRight = Format(NData, CFormat)
        AlignRight = Space(Len(CFormat) - 1) + "0"
     
    End If
 
End Function

Código: (VB) [Seleccionar]

Private Sub Command1_Click()
   
    Me.Print AlignRight("10", "##,###0")
    Me.Print AlignRight("100", "##,###0")
    Me.Print AlignRight("1000", "##,###0")
    Me.Print AlignRight("10000", "##,###0")
    Me.Print AlignRight("100000", "##,###0")
    Me.Print AlignRight("1000000", "##,###0")
       
End Sub
EJEMPLO

[FrankLizardo]

Bueno la Solucion es que pongas mas #

Me.Print AlignRight("1000000", "#######,###0")

[E N T E R]

Gracias amigo, me sirvio.

También hice este método mas resumido.

Código: (VB) [Seleccionar]

Public Function xRight(xNumero) As String
    xRight = Format(Format(xNumero, "##,###0"), "@@@@@@@@@@@@@@")
End Function

Código: (VB) [Seleccionar]

Private Sub Form_Load()
    Me.Print xRight(10000000000)       
End Sub
No se cual conviene mas usar pero esta funcionando muy bien para lo que quiero.


Saludos...