Create a mask inside a textbox
 

Is there a way to create a mask inside a textbox? I have a form, tha
will require a Federal Tax ID to be entered in the textbox. And I nee
it to always have the format of XX-XXXXXXX where X can only be a numbe
0 through 9...any suggestions?

--
dok11
-----------------------------------------------------------------------
dok112's Profile: http://www.excelforum.com/member.php...fo&userid=1058
View this thread: http://www.excelforum.com/showthread.php?threadid=46834

Create a mask inside a textbox
 

Not really.

But maybe you could just allow numbers and then format it when the user leaves
the textbox.

Option Explicit
Private Sub TextBox1_AfterUpdate()
With Me.TextBox1
.Value = Format(.Value, "00-0000000")
End With
End Sub
Private Sub TextBox1_KeyPress(ByVal keyascii As MSForms.ReturnInteger)
Dim OKChar As Boolean
OKChar = True
If Len(Me.TextBox1.Value) = 9 Then
OKChar = False
Else
Select Case keyascii
Case Asc("0") To Asc("9")
'ok
Case Else
OKChar = False
End Select
End If

If OKChar = False Then
keyascii = 0
Beep
End If
End Sub





dok112 wrote:

Is there a way to create a mask inside a textbox? I have a form, that
will require a Federal Tax ID to be entered in the textbox. And I need
it to always have the format of XX-XXXXXXX where X can only be a number
0 through 9...any suggestions??

--
dok112
------------------------------------------------------------------------
dok112's Profile: http://www.excelforum.com/member.php...o&userid=10581
View this thread: http://www.excelforum.com/showthread...hreadid=468341

--

Dave Peterson