Поиск файла по имени без расширения - VB

Формулировка задачи:

Необходимо в указанной папке найти файл. Ищу так:

                    Листинг программы
                
 
                        
                          
                    
FileName = "C:\Users\Lenovo\Desktop\фото для поиска\п.1.JPG"
............................
Function ФайлСуществует(ИмяФайла As String) As Boolean
Dim nf
On Error Resume Next
nf = FreeFile
Open ИмяФайла For Input As #nf
If Err Then
    ФайлСуществует = False
Else
    ФайлСуществует = True
End If
Close #nf
End Function

Так все нормально, файл ищется. Но мне нужно чтобы он находил файл без расширения т.е.

п.1

????????? Чтобы все равно было просто папка, doc, pdf, JPG итд когда пробую:

                    Листинг программы
                
FileName = "C:\Users\Lenovo\Desktop\фото для поиска\п.1"

ТО УВЫ НИЧЕГО НЕ НАХОДИТ!!!???

Решение задачи: «Поиск файла по имени без расширения»

textual
                            Листинг программы 
                        
ИпостасьСуществует=Dir(name & ".*",vbDirectory)<>""