Or
VB Code:
  1. Text1.Text = FormatNumber(Text1.Text, 0, , , vbFalse)
will remove the comma and Val will evaluate the value correctly.
Regards
Doug