How to get file list in a folder?

Option Explicit

Private Sub Command1_Click()
Dim strFile
strFile = Dir$(App.Path & "\*.*", vbNormal)
Do While strFile <> vbNullString
    Debug.Print strFile
    strFile = Dir$()
Loop
End Sub