Public Function FileExists(ByVal sFile As String) As Boolean
 
  ' Der Parameter sFile enthält den zu prüfenden Dateinamen
 
  Dim Size As Long
  On Local Error Resume Next
  Size = FileLen(sFile)
  FileExists = (Err = 0)
  On Local Error GoTo 0
End Function
 
Private Sub cmd1_Click()
 
Dim anzahl, F, zz1, zz2, Obergrenze, Untergrenze As Integer
Dim nLines As Long
Dim vor, nach, sFile, sLines() As String
 
If ob1.Value = False And ob2.Value = False Then
MsgBox ("Bitte wählen Sie ein Land aus!")
End If
 
If IsNumeric(txt1.Text) = False Or txt1.Text = "" Then
MsgBox ("Bitte geben Sie eine Zahl ein!")
Else
anzahl = CInt(txt1.Text)
End If
 
Obergrenze = 9
Untergrenze = 2
nLines = 1
 
For i = 1 To anzahl
 
onceagain:
 
zz1 = Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
zz2 = Int((Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
 
If ob1.Value = True Then
 
vor = CStr(Range("B" & zz1 & "").Text)
nach = CStr(Range("C" & zz2 & "").Text)
 
lbl3.Caption = vor
lbl4.Caption = nach
 
 
sFile = "H:\data\engnames.txt"
F = FreeFile
 
' Anzahl der Zeilen in der Textdatei ermitteln
If FileExists(sFile) = True Then
    Open sFile For Input As #F
    While Not EOF(F)
        Line Input #F, sLines(nLines)
        nLines = nLines + 1
    Wend
    Close #F
 
    For j = 1 To nLines
        If sLines(j) = vor & " " & nach Then
            GoTo onceagain
        End If
    Next j
End If
 
Open sFile For Append As #F
Print #F, lbl3.Caption & " " & lbl4.Caption
Close #F
 
 
ElseIf ob2.Value = True Then
 
vor = CStr(Range("E" & zz1 & "").Text)
nach = CStr(Range("F" & zz2 & "").Text)
 
lbl3.Caption = vor
lbl4.Caption = nach
 
 
sFile = "H:\data\gernames.txt"
F = FreeFile
 
' Anzahl der Zeilen in der Textdatei ermitteln
If FileExists(sFile) = True Then
    Open sFile For Input As #F
    While Not EOF(F)
        Line Input #F, sLines(nLines)
        nLines = nLines + 1
    Wend
    Close #F
 
    For j = 1 To nLines
        If sLines(j) = vor & " " & nach Then
            GoTo onceagain
        End If
    Next j
End If
 
Open sFile For Append As #F
Print #F, lbl3.Caption & " " & lbl4.Caption
Close #F
 
End If
 
Next i
End Sub