Public Function Kontrolle()
 
Dim ArrayEintrag As String
Dim SplitErgebnis As Variant
Dim SplitErgebnisUmfang As Integer
Dim SplitErgebnisUmfangCounter As Integer
Dim spli As Variant
'Phase 1
If frmAbfrage.txtÜbersetzung.Text = VokabelArray(VN) Then
    GoTo Richtig
End If
 
ArrayEintrag = VokabelArray(VN)
SplitErgebnis = Split(ArrayEintrag, ";")
SplitErgebnisUmfang = UBound(SplitErgebnis)
'Phase 2
For SplitErgebnisUmfangCounter = 0 To SplitErgebnisUmfang
 
   Dim strTrim As String
   ' löscht Leerzeichen links/rechts von einer Zeichenfolge
   strTrim = Trim(SplitErgebnis(SplitErgebnisUmfangCounter))
 
If strTrim = frmAbfrage.txtÜbersetzung.Text Then
    GoTo Richtig
Else
 
'------------------------------------------------------------------------------
' ------
'------------------------------------------------------------------------------
' ------
'Phase 3
 
Dim SuchZeichen As String, Pos1 As Integer
 
 
    ' Zeichenfolge, die gesucht werden soll.
    SuchZeichen = "("
 
 Pos1 = InStr(1, strTrim, SuchZeichen, 0)
 
If Pos1 > 0 Then
 
Dim teilung As Variant
Dim Teil1 As String
Dim Teil2 As String
Dim Teil3 As String
 
teilung = Split(strTrim, "(")
 
Teil1 = teilung(0)
Teil1 = Trim(Teil(1))
 
teilung = Split(teilung1, ")")
 
Teil2 = teilung(0)
Teil2 = Trim(Teil2)
 
Teil3 = teilung(1)
Teil3 = Trim(Teil3)
 
If frmAbfrage.txtÜbersetzung.Text = Teil1 & Teil3 _
Or frmAbfrage.txtÜbersetzung.Text = Teil1 & " " & Teil3 _
Or frmAbfrage.txtÜbersetzung.Text = Teil1 & Teil2 & Teil3 _
Or frmAbfrage.txtÜbersetzung.Text = Teil1 & " " & Teil2 & " " & Teil3 Then
 
GoTo Richtig
End If
 
 
 
If Pos1 = 1 Then
 
    If frmAbfrage.txtÜbersetzung.Text = Teil2 & Teil3 Or _
    frmAbfrage.txtÜbersetzung.Text = Teil2 & " " & Teil3 Then
 
    GoTo Richtig
    End If
 
End If
 
Pos1 = InStr(1, strTrim, ")", 0)
 
If Pos1 = Len(strTrim) Then
 
    If frmAbfrage.txtÜbersetzung.Text = Teil1 & Teil2 Or _
      frmAbfrage.txtÜbersetzung.Text = Teil1 & " " & Teil2 Then
 
        GoTo Richtig
    End If
 
End If
 
 
End If
'------------------------------------------------------------------------------
' ------
'------------------------------------------------------------------------------
' ------
 
End If
 
Next SplitErgebnisUmfangCounter
 
If VZXM = 1 Then
Exit Function
End If
 
Falsch:
frmAbfrage.Label2.Caption = "falsch"
Resultat = "falsch"
frmAbfrage.Label2.ForeColor = &HFF&
VokabelArray(VN + 5) = VokabelArray(VN + 5) + 1
VokabelArray(VN + 6) = VokabelArray(VN + 6) + 1
VZXM = "1"
 
Exit Function
 
Richtig:
If Not VZXM = "1" Then
VokabelArray(VN + 6) = VokabelArray(VN + 6) + 1
End If
If Resultat <> "falsch" Then
VokabelArray(VN + 7) = "1"
End If
frmAbfrage.Label2.Caption = "richtig"
Resultat = "richtig"
frmAbfrage.Label2.ForeColor = &HC000&
frmAbfrage.Label3.Caption = VokabelArray(VN + 1) & "  -  " & VokabelArray(VN)
VZXM = "0"
 
End Function