• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Currency Text box.

Currency Text box.

Currency Text box.

Rate Currency Text box.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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