Private Sub Command1_Click()
 
Dim L%(3), V%(3), i%, j%, Loesung$, Versuch$, PosZahl%, nurZahl%
 
Loesung = "1234"
Versuch = "4321"
For i = 0 To 3
  L(i) = Val(Mid(Loesung, i + 1, 1))
  V(i) = Val(Mid(Versuch, i + 1, 1))
Next i
PosZahl = 0
For i = 0 To 3
  If L(i) = V(i) Then
    PosZahl = PosZahl + 1
    L(i) = -1
    V(i) = -2
  End If
Next i
nurZahl = 0
For i = 0 To 3
  If L(i) <> -1 Then
    For j = 0 To 3
      If i <> j Then
        If L(i) = V(j) Then
          nurZahl = nurZahl + 1
          V(j) = -1
          Exit For
        End If
      End If
    Next j
  End If
Next i
MsgBox PosZahl & " richtige Position(en) + Zahl(en)" & vbCr & nurZahl & "" & _
  "richtige Zahl(en)"
 
End Sub