Currency Text box.
Currency Text box.
Rate Currency Text box.
(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
Currency Text box. Comments
No comments yet — be the first to post one!
Post a Comment