Visual Basic 6 - ricerca file(errore strano)

Sub CercaFile(ByVal NomeDir As String, ByVal NomeFile As String)
Dim FileFound As String
Dim PathNames() As String
Dim FileNames() As String
Dim k As Integer
Dim li As ListItem
k = -1
If Right$(NomeDir, 1) <> "\" Then NomeDir = NomeDir & "\"
FileFound = Dir$(NomeDir & NomeFile)
Do While FileFound <> ""
If FileFound <> "." And FileFound <> ".." Then
k = k + 1
ReDim Preserve FileNames(k)
FileNames(k) = FileFound
Print #file, NomeDir + FileFound
End If
FileFound = Dir$
Loop
If k <> -1 Then
For k = 0 To UBound(FileNames)
iRighe = iRighe + 1
Set li = ListView1.ListItems.Add(, , Format(iRighe, "00000") ' righe
li.SubItems(1) = NomeDir
li.SubItems(2) = FileNames(k)
Next
End If
k = -1
FileFound = Dir(NomeDir, vbDirectory)
Do While FileFound <> ""
If FileFound <> "." And FileFound <> ".." Then
If (GetAttr(NomeDir & FileFound) And vbDirectory) = vbDirectory Then
k = k + 1
ReDim Preserve PathNames(k)
PathNames(k) = FileFound
End If
End If
FileFound = Dir
Loop
If k = -1 Then Exit Sub
For k = 0 To UBound(PathNames)
CercaFile NomeDir & PathNames(k), NomeFile
Next
End Sub

Private Sub Command1_Click()
CercaFile("C:\Windows", "notepad.exe" <--qui l'errore
End Sub

Postato originariamente da Dark_Limit:
Mi sono avvicinato da poco al vb6 in quanto arrivo dal vb.NEt

che è più o meno simile.

Volevo chiedrvi ...CercaFile("C:\Windows", "notepad.exe" <--qui l'errore