Замена символов в textbox

[konstantin1990]

Добрый вечер уважаемые форумчане, с наступающим Новым Годом!
У меня есть текст бокс и когда я ввожу в него цифры 1255 после его обновления добавляется разделитель и получается 12/55, но если заново навести фокус и обновить появится 12//55. как сделать так, чтобы второго символа "/" не появлялось. В начале я написал код, но он не работает.

Private Sub textbox1_AfterUpdate()
If textbox1.Value = "**/**" Then
Exit Sub
End If

Text = textbox1.Text
ss = Split(Text, vbCrLf)
For n = 0 To UBound(ss)
ss(n) = Mid(ss(n), 1, 2) & "/" & Mid(ss(n), 3, Len(ss(n)) - 2)
Next
textbox1.Text = Join(ss, vbCrLf)
End Sub

[Stilet]

Наверное нужно проверку делать используя Instr(), в которую передавать слеш. И если нашлось - не делать, или удалять его

[Hugo121]

s = "12/55"
If s Like "*/*" Then MsgBox "Like!"

[konstantin1990]

to Hugo121 не понял немного. можно на примере:

[Hugo121]

Да что тут понимать?

    If TextBox1.Value Like "*/*" Then Exit Sub

С Новым Годом!