Dim PersonJan(10, 3) As String
Dim PersonFeb(10, 3) As String
Function PersDatenNachMonat(Monat As String, Eintrag As Integer)
    Select Case Monat
        Case 1
            For i = 0 To 2
                Combo1.AddItem PersonJan(i, Eintrag)
            Next i
        Case 2
            For i = 0 To 2
                Combo1.AddItem PersonJan(i, Eintrag)
            Next i
        'usw - 12
    End Select
End Function
Private Sub Command1_Click()
    Combo1.Clear
    PersDatenNachMonat Text1, Text2
End Sub
 
Private Sub Form_Load()
 
    PersonJan(0, 0) = "Name1"
        PersonJan(0, 1) = "Vorname1"
            PersonJan(0, 2) = "01.01"
                    PersonJan(0, 3) = 1827
    PersonJan(1, 0) = "Name1"
        PersonJan(1, 1) = "Vorname1"
            PersonJan(1, 2) = "09.01"
                    PersonJan(1, 3) = 1898
    PersonJan(2, 0) = "Name2"
        PersonJan(2, 1) = "Vorname1"
            PersonJan(2, 2) = "26.01"
                    PersonJan(2, 3) = 1723
 
    PersonFeb(0, 0) = "Name1"
        PersonFeb(0, 1) = "Vorname1"
            PersonFeb(0, 2) = "01.01"
                    PersonFeb(0, 3) = 1827
    PersonFeb(1, 0) = "Name1"
        PersonFeb(1, 1) = "Vorname1"
            PersonFeb(1, 2) = "09.01"
                    PersonFeb(1, 3) = 1898
    PersonFeb(2, 0) = "Name2"
        PersonFeb(2, 1) = "Vorname1"
            PersonFeb(2, 2) = "26.01"
                    PersonFeb(2, 3) = 1723
 
End Sub