"Locate" in the program

[bplus]

Just extend the print using to #,###,###.00 or use #,###,###,###.00 if billion $

Code: (Select All)

Sub PU (row, col, label$, number As Double) ' label needs to be 25 chars max
    Dim buf$
    Locate row, col
    buf$ = Space$(25)
    Mid$(buf$, 1) = label$
    Print Using buf$ + ": #,###,###,###.00"; number
End Sub

I only used ###,###.## because that is what you used!

GetNumber() is right aligned input.

Even with VB or any GUI you need to allow for maximum number.