Private Sub cmdCheck_Click()
Dim weiter As Boolean
lfRes.Clear
lfGeg.Clear
voc.MoveFirst
 
voc.FindFirst "trim(veng) = '" & Trim(Text1) & "'"
 
 
   If Not voc.NoMatch = True Then
    lffound.AddItem voc!veng
    weiter = False
 Else
    weiter = true
   End If
 
If weiter = True Then
Do While Not voc.EOF = True
  lfRes.Clear
  svar = voc!veng + " "
  SplitDB svar, " "
  comparelist
  voc.MoveNext
Loop
End If
End Sub
 
Sub comparelist()
lfGeg.ListIndex = 0
For i = 0 To lfGeg.ListCount - 1
 lfRes.ListIndex = 0
    For a = 0 To lfRes.ListCount - 1
        If lfRes = lfGeg Then
            Select Case lfRes
            Case "in"
            Case "at"
            Case "It"
            Case "to"
            Case Else
            lffound.AddItem svar
            Exit For
            Exit For
            End Select
        Else
            If Not lfRes.ListIndex = lfRes.ListCount - 1 Then
                lfRes.ListIndex = lfRes.ListIndex + 1
            End If
        End If
    Next a
  If Not lfGeg.ListIndex = lfGeg.ListCount - 1 Then
    lfGeg.ListIndex = ListIndex + 1
  Else
    Exit For
  End If
 Next i      
 
End Sub