format a text field into a $ currency field.
Original Author: Vikramjit Singh
Inputs
text box name
Assumptions
Call teh module by passing any text box name that you want to have as a currency text box.
Returns
formatted value in $
API Declarations
‘put as many text boxes as you want…say text1
‘call the class by using the following line
Call validate(Text1)
Code
Sub validate(textboxname As TextBox)
If KeyAscii > Asc(9) Or KeyAscii < Asc(0) Then
KeyAscii = 0
End If
mypos = InStr(1, textboxname.Text, ".")
If mypos <> 0 Then
textboxname.Text = Format(textboxname.Text, "$###,###,###,###.##")
Else
textboxname.Text = Format(textboxname.Text, "$###,###,###,###")
End If
End Sub