Private Sub mnuExport_Click()
Dim jx As Integer, ix As Integer
Dim tempTXT As String
Dim Wrap As String
List1.Clear
Wrap = Chr(13) + Chr(10)
For ix = 0 To cmbNTEAMS.ListCount - 1
    cmbNTEAMS.ListIndex = ix
    DoEvents
    For jx = 0 To cmbTeams.ListCount - 1
        DoEvents
        cmbTeams.ListIndex = jx
        List1.AddItem txtUefa & " / " & txtTeam & " / " & txtTeamNo
    Next jx
Next ix
For ix = 0 To List1.ListCount - 1
    tempTXT = tempTXT & Wrap & List1.List(ix)
Next ix
        Open App.Path & "\GIN.txt" For Output As #3
        Print #3, tempTXT
        Close #3
End Sub