Excel VBA: List all File Names in a Folder

Sub ListFiles()
Dim oFSO As New FileSystemObject
Dim oFolder As Folder
Dim I As Long
Dim oFile As File
Set oFolder = oFSO.GetFolder("C:\test\teampics")
For I = 1 To oFolder.Files.Count
For Each oFile In oFolder.Files
MsgBox oFile.Name
Next
Next I
MsgBox "Over", vbInformation
End Sub