Slight modification required

[NimishK]

Hello
Slight modifciation required from below code.
I want to enter the text in textbox with Numeric Values with "-" For eg Date 22-09-2009
what will be the change in the below code to acheive with numeric values and "-"

   KeyAscii = -KeyAscii * CLng(Chr(KeyAscii) Like "#")
   If KeyAscii = 0 Then Beep

Thanks
NimishK

 

[Yongle]

You can try something like this

Private Sub [COLOR=#ff0000]TextBox2[/COLOR]_Change()
    Dim t As String
    With [COLOR=#ff0000]TextBox2[/COLOR]
        t = .Text
        Select Case Len(t)
            Case 2, 5:          t = t & "-"
            Case Is >= 10:      t = Left(t, 10)
        End Select
        .Text = t
    End With
End Sub

Private Sub [COLOR=#ff0000]TextBox2[/COLOR]_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    With [COLOR=#ff0000]TextBox2[/COLOR]
        Select Case KeyAscii
            Case Asc("0") To Asc("9")
            Case Else: KeyAscii = 0
        End Select
    End With
End Sub