Function GetJustName() As String

    Dim fd  As FileDialog
    Dim fso As New FileSystemObject

    ' Select file.
    Set fd = Application.FileDialog(msoFileDialogFilePicker)

    ' Clear pre-defined filters to select any file.
    fd.Filters.Clear

    ' If user selected nothing, exit sub.
    If fd.Show = False Then Exit Function

    ' Get file name with extension.
    GetJustName = fso.GetFile(fd.SelectedItems( 1 )).Name

End Function

...
If sFullFileName = "False" Then Exit Sub
...

Sub ThePristLogic()

    Dim s As String
    Dim w As Worksheet
    
    s = w
    
    MsgBox TypeName(s)

End Sub

"GetOpenFilename возвращает Variant - GetOpenFilename может и возвращает"
Пояснять дальше? Думаю да, т.к. Вы опять прочтете только то, что хотите, а не то, что написано. Вы написали, что GetOpenFilename возвращает Variant, на что я ответил, что она-то может и возвращает, но я его преобразую в нужный мне тип. Таким образом в моей фразе слово "может" имеет более связующий смысл, нежели отражение моего сомнения.

Dim sFullFileName As String
Dim sFileName As string
Dim result As Variant
result = Application.GetOpenFilename("Word Files(*.*),*.*", , "Выбрать файл", , False)
If result = False Then Exit Sub
sFullFileName = result '<-- Вот здесь неявно Variant конвертится в String.
sFileName = Dir(sFullFileName,vbDirectory)

Sub IntrinsicFsoCompare()

    Dim fso As New FileSystemObject
    Dim dTmr As Double
    Dim aFile As File
    Dim sFileName As String
    Dim sFolder As String

    sFolder = "E:\Images\wallpapers\18\"

    ' Стандартный метод.
    dTmr = Timer
    sFileName = Dir(sFolder)
    While sFileName <> ""
        sFileName = Dir()
    Wend

    MsgBox "Встроенный метод: " & Timer - dTmr


    ' Через FileSystemObject.
    dTmr = Timer

    For Each aFile In fso.GetFolder(sFolder).Files
        sFileName = aFile.Name
    Next

    MsgBox "Через File System Object: " & Timer - dTmr

End Sub