Alle Textboxes auf numerische Werte pr�fen

In einer Userform befindet sich recht viele Textboxes.
Die Namen sind fortlaufend: TXTPLZ1, TXTPLZ2, TXTPLZ3
Diese sollen beim Klick auf einen Button auf numerische Werte �berpr�ft werden.
Ist ein nicht numerischerer Wert vorhanden, soll eine Meldung erscheinen
und die Textbox aktiviert werden.
Private Sub CommandButton1_Click()
   For Each objekt In UserForm1.Controls
      If UCase(Mid(objekt.Name, 1, 6)) = "TXTPLZ" Then
         If Not IsNumeric(objekt.Value) And objekt.Value <> "" Then
            MsgBox "Nur Ziffern erlaubt!", vbCritical, _
              "Fehlermeldung - PLZ"
            objekt.SetFocus
            Exit Sub
         End If
      End If
   Next objekt
End Sub