Chamando a caixa de diálogos para abrir arquivos em vba

Esta função chama um caixa de diálogos e retorna o caminho completo do arquivo selecionado.

Function AbrirArquivo(Optional strTitulo As String) As String

Dim fd As FileDialog

Dim ARQ As String

Dim i As Integer

    Set fd = Application.FileDialog(msoFileDialogOpen)

        If strTitulo <> "" Then

                fd.Title = strTitulo

        End If

    If fd.Show = -1 Then

        For i = 1 To fd.SelectedItems.Count

            AbrirArquivo = fd.SelectedItems(i)

            Exit For

        Next

    End If

    Set fd = Nothing

End Function