I have so far been working on Tom's solutions.
This is what I have for Private coding in my Form:

Private Sub cmdCASH_REQUIRED_Click()
Dim Str1 As String
Str1 = txtCASH_REQUIRED.Value
Cash = Val(Str1)
Unload Me
End Sub
__________________________________________________ _______________
Private Sub grpCASH_REQUIRED_Click()
End Sub
__________________________________________________ _______________
Private Sub UserForm_Click()
End Sub
__________________________________________________ _______________
Private Sub txtCASH_REQUIRED_Exit(ByVal Cancel As
MSForms.ReturnBoolean)
txtCASH_REQUIRED.Text = Format(txtCASH_REQUIRED.Text, "#,##0")
End Sub

(I deleted the If stmt because all data input will be digital.)

Very strange ... the above coding is taking user input, converting it
to a number, and dividing it by 1,000 (when it's dropped into the WB);
however, when the Form is displayed: e.g., the user keys '10000';
after keying 'Enter', a comma is inserted between the first two zeros,
appropriately.

Tom, I think there is a typo in your second solution; I tried to fix
it, but was unsuccessful.

Thanks again,
Chuckles123


--
Chuckles123
------------------------------------------------------------------------
Chuckles123's Profile: http://www.excelforum.com/member.php...o&userid=14948
View this thread: http://www.excelforum.com/showthread...hreadid=278906