Textbox Validation Function - Check it out

[ZeBula8]

you could have simply used this:

Private Sub Command1_Click()
'E05-09812A
'WS0/3456SA

If UCase$(Text1.Text) Like "[A-Z]##-#####[A-Z]" _
    Or UCase$(Text1.Text) Like "[A-Z][A-Z]#/####[A-Z][A-Z]" Then
    MsgBox "okay"
End If
End Sub