VBA word: Indlæs data fra to forskellige mapper

Hej!

Jeg har en userform1, to checkbox'es, en liste LstFiler og en knap CmdVis.

Ved at vælge checkbox 1, vises indholdet af mappe "X". Ved at vælge checkbox 2, vises indholdet af mappe "XY".

Mit problem er, at om jeg vælger checkbox 1 eller 2, vises samme mappes indhold i listen, på trods af at jeg har defineret to forskellige stier i koderne. Se her:

Function VisFiler()
Dim fs, f, f1, fc, filnavnFil
Lstfil.Clear
 
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("C:\Skrivebord")
Set fc = f.Files
For Each f1 In fc

    If InStrRev(f1.Name, "ATU") Or InStrRev(f1.Name, "LD") And InStrRev(f1.Name, ".doc") Then
    filnavnFil = Replace(f1.Name, ".doc", "")
        If filnavnFil = "TEST1.dvw" Then GoTo TilfojIkke
        If filnavnFil = "" Then GoTo TilfojIkke
    Else
    GoTo tjekvidere
    End If
    GoTo Tilfoj

tjekvidere:
    If InStrRev(f1.Name, "Windows") Or InStrRev(f1.Name, "LINUX") And InStrRev(f1.Name, ".DOC") Then _
    filnavnFil = Replace(f1.Name, ".DOC", "")
    If filnavnFil = "" Then GoTo TilfojIkke
   
Tilfoj:
Lstfil.AddItem filnavnFil
TilfojIkke:
Next
End Function

-------------------------

Function VisITP()
Dim fso, fa, f2, ff, FilnavnITP

Lstfil.Clear

Set fso = CreateObject("Scripting.FileSystemObject")
Set fa = fso.GetFolder("I:\BIG")
Set ff = fa.Files
For Each f2 In ff
    If InStrRev(f2.Name, ".doc") Or InStrRev(f2.Name, ".DOC") Then
        FilnavnITP = f2.Name
        Lstfil.AddItem FilnavnITP
    End If
videre2:
Next
End Function



Hvad er forkert i koden?

nicolaus