Private Sub Command1_Click()
MsgBox validate(Text1.Text)
End Sub
Private Function validate(str As String) As Boolean
If Left(str, 1) = "T" Then
validate = IsNumeric(Right(str, 6))
Else: validate = False
End If
End Function
Lav en textbox ved navn Text1 og en kommando knap ved navn Command1
Hvis der er noget du ikke forstår så spørg...