Currency Text box.

by Damith Benaragama (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Tue 30^th January 2007
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Currency Text box.

Rate Currency Text box.



If IsNumeric(Text1.Text) Then
    Text1.Text = Format(Text1.Text, "#,##0.00")
Else
    MsgBox "Please enter a Numeric Value", vbInformation, "Unexcepted Value"
    Text1.SetFocus
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
End If
End Sub

Download this snippet Add to My Saved Code

Currency Text box. Comments

No comments have been posted about Currency Text box.. Why not be the first to post a comment about Currency Text box..

Currency Text box.

Currency Text box. Comments

Post your comment

Difficulty