Выводит:
ў?ї???.txt

А должно быть:
ўѣїѳ₽ѵ.txt

Function ProverkaMask(ist As String, msk As String, ByVal start As Integer=1,_
                        ByVal ssim As Integer=1, ByVal sm As Integer=0) As Integer
   Dim As Integer poz, start0=start, ssim0=ssim, sm0=sm, razmIst=Len(ist)
   Dim As String*1 sim   
   Do
      If ssim > Len(msk) Then ' если закончилась маска
         If sm = 1 Then ' если в конце звёздочка
            Return 1
         ElseIf start = razmIst+1 Then
            Return 1 
         Else
            If ProverkaMask(ist,msk,start,1,sm) Then Return 1 Else Return 0         
         EndIf
      EndIf
      sim = Mid(msk,ssim,1) ' Сканируем маску по 1 символу со счетчиком
      If sim = "*" Then ' условное начало поиска
         sm = 1 : ssim += 1
         If ProverkaMask(ist,msk,start,ssim,sm) Then Return 1 Else Return 0
      Else
         If start > razmIst Then Return 0      
         If sim = "?" Then ' увеличиваем значение точки старта
            start += 1 : ssim += 1 : sm = 0      
            If ProverkaMask(ist,msk,start,ssim,sm) Then Return 1 Else poz = 0
         Else ' sim = "буква"   
            poz = InStr(start,ist,sim)
            If sm = 0 AndAlso poz <> start Then poz = 0 Else start = poz               
         EndIf
      EndIf
      If poz = 0 Then ' не найден символ подстроки
         If sm0 = 1 AndAlso start < razmIst Then ' на следующий круг   
            start0 += 1 : start = start0 : ssim = ssim0 : sm = 1
         Else
            Return 0
         EndIf
      Else ' к следующему элементу
         start += 1 : ssim += 1 : sm = 0
      EndIf      
   Loop      
End Function

Dim As String s = "Морковка"
? ProverkaMask(s, "Мор*к?") ' возвращает 1 если совпало, иначе  0
Sleep

list_files "C:\БЛАБЛА\*.*", fbDirectory

Dim As Integer FileCount

var p = Dir("*")
If Len(p) Then
    Print p
    Filecount = 1
    var pp = Dir()
    Do While Len(pp)
        Print pp
        FileCount += 1
        pp = Dir()
    Loop
End If

Print FileCount & " files in the current directory."