VBA, loop til kontrol af indput.

Er ved at lave en Userform til indtastning af måneds data, og vil i den forbindelse "centralisere" kontrol funktioner med mere, men kan ikke finde den rigtige syntax til at vælge de relevante elementer:

Setup er som følger:
1: Alle indput felter er textbox
2: De har alle navnet Month[1..12]Type[1..4]
3: Userformen har name=Mrevision

Følgende er mit forsøg som fejler (Ved for each..):
Sub ErTal()
    Dim Ctl As Object
    Dim Mrev As Mrevision
    For Each Ctl In Mrevision
        If Not InStr(Ctl.Name, "Month") = 0 Then   
            If Not Ctl = vbNullString Then
                If Not IsNumeric(Ctl) Then
                    MsgBox "Desværre, kun tal!"
                Ctl = vbNullStrin
                End If
            End If
        End If
    Next         
End Sub

Dette fungere fint, men vil gerne have en fælles rutine der kontrolerer alle textbokse.
Private Sub ErTal2()
    If TextBox1 = vbNullString Then Exit Sub
        If Not IsNumeric(TextBox1) Then
            MsgBox "Sorry, numbers only"
            TextBox1 = vbNullString
        End If
End Sub