Userform TextBox input format problems

[trimmjens]

Hi there!

I've made an userform with a textbox. I want to force the user to type
the value in a specific format, e.g. 5.2.0

The code I have now:

If Not TextBox1.Value = Format(TextBox1, "0.0.0") Then GoTo FormatError

(rest of the code)

FormatError:
intresp = MsgBox("Insert valid version number.", vbExclamation + vbOKOnly, "Insert valid version number")
TextBox1.SetFocus
Exit Sub

No matter what format I type in the textbox it doesn't change anything.

Can someone help me on this one, please?


Thomas

​