Private Sub Command1_Click()
 
Dim i As Integer
For i = 0 To 2
Label1(i).Caption = Punkte(Text1(i).Text, Text2(i).Text, Text3(i).Text, Text4( _
  i).Text)
Next i
 
End Sub
 
Function Punkte(var1 As Variant, _
                var2 As Variant, _
                var3 As Variant, _
                var4 As Variant) As Variant
   Punkte = ""
 
   If var1 <> "" And var3 <> "" Then
      Punkte = 0
      If var1 = var3 And var2 = var4 Then
         Punkte = 3
      Else
         If (var1 = var2 And var3 = var4) Or _
            (var1 > var2 And var3 > var4) Or _
            (var1 < var2 And var3 < var4) Then
            Punkte = 1
         End If
      End If
   End If
End Function