Fehlerprozedur
20.12.2006 11:38:13
Chrischi
Was Habe ich falschgemacht ?
Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo ISINfalsch
Prüfen:
If Len(TextBox5.Value) > 1 Or Len(TextBox5.Value) < 12 Then Error Raise 71
Exit Sub
ISINfalsch:
If Error.Number = 71 Then
MsgBox ("ISIN ist zu kurz !!!")
End If
TextBox5.SetFocus
End Sub