Option Explicit
 
Dim myTip(6) As Long
Dim gezogen(6) As Long
 
Private Sub Form_Load()
    myTip(1) = 1
    myTip(2) = 11
    myTip(3) = 25
    myTip(4) = 26
    myTip(5) = 37
    myTip(6) = 49
 
    gezogen(1) = 1
    gezogen(2) = 2
    gezogen(3) = 3
    gezogen(4) = 37
    gezogen(5) = 38
    gezogen(6) = 49
End Sub
 
Private Sub Command1_Click()
    Dim i As Long
    Dim j As Long
    Dim anz As Long
 
    For i = 1 To 6
        For j = 1 To 6
            If myTip(i) = gezogen(j) Then
                anz = anz + 1
                Exit For
            End If
        Next j
    Next i
    MsgBox "Ich habe " + CStr(anz) + " Zahlen richtig !", vbInformation
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1