Listar arquivos de uma pasta

Já era tempo de começar a postar dicas de VBA...
"Abrindo" a nova fase, segue um código que eu uso para listar e catalogar meus mp3's.
Código bem simples e com alguns comentários para facilitar o entendimento:

Sub lista_arquivos()
    Dim pasta As String
    Dim linha As Integer
    Dim arquivo As String
    linha = 1
        
    'Pega o caminho completo da pasta
    pasta = InputBox("Digite o caminho da pasta")

    'Cabeçalho
    Cells.ClearContents
    Cells(linha, 1) = "Nome do Arquivo"
    Cells(linha, 2) = "Tamanho"
    Cells(linha, 3) = "Data/Hora"
    Range("A1:C1").Font.Bold = True
    linha = linha + 1

    'Lista o primeiro arquivo da pasta
    'arquivo = Dir(pasta, 7)
    arquivo = Dir(pasta, 7)
    Cells(linha, 1) = arquivo
    Cells(linha, 2) = FileLen(pasta & arquivo)
    Cells(linha, 3) = FileDateTime(pasta & arquivo)

    'Lista os arquivos restantes
    Do While arquivo <> ""
        arquivo = Dir
        If arquivo <> "" Then
            linha = linha + 1
            Cells(linha, 1) = arquivo
            Cells(linha, 2) = FileLen(pasta & arquivo)
            Cells(linha, 3) = FileDateTime(pasta & arquivo)
        End If
    Loop
End Sub