[Resolvido]Localizar arquivo e inserir caminho no campo

Sub getFileName()
    Dim fileName As String
    Dim result As Integer
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Selecionar Foto"
        .Filters.Add "Todos os arquivos", "*.*"
        .Filters.Add "JPEGs", "*.jpg"
        .Filters.Add "Bitmaps", "*.bmp"
        .FilterIndex = 2
        .AllowMultiSelect = False
        .InitialFileName = fncOrigem(mRaiz)  'pasta raiz da aplicação
        result = .Show
        If (result <> 0) Then
            fileName = Trim(.SelectedItems.Item(1))
            Me.txtLocal.Visible = True
            Me.txtLocal.SetFocus
            Me.txtLocal.Text = fileName
            Me.txtLocal.Visible = False
        End If
    End With
End Sub