type miss match

hi guy!

i got type mismatch when i trying to run debug.print file
here the code

Sub CheckFile()

    Dim sPath As String
    Dim sFile() As String
    
    sPath = Dir$("C:\Folder\" & "*.*", vbDirectory)
    
    Do While sPath <> ""
        sPath = Dir$()
        sFile = Array(sPath)
        Debug.Print sFile
    Loop

End Sub