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