
Private Sub TextBox7_AfterUpdate()
a = TextBox7.Text
b = "[A-Z][A-Z]##[A-Z]######################"
If a Like b Then
MsgBox "esatto"
Else
MsgBox "IBAN errato"
End If
End Sub |
Private Sub TextBo8_AfterUpdate()
a = TextBox8.Text
b = "###########"
If a Like b Then
MsgBox "esatto"
Else
MsgBox "IVA errato"
End If
End Sub |
