Show dialog window

Hi Friends,

Please help me for below code
first i want tell what i want
i am lokking a dialog window insted of input box.
in Inputbox, i put the path where my file tobe save.

So here i want to dialog box which will save the path in my variable

Dim outputPath
outputPath = Application.InputBox("Please Paste The Output Path", "Output Path")
    If outputPath = "" Then
    Exit Sub
    
 Workbooks.Add
     ChDir outputPath
     ActiveWorkbook.SaveAs Filename:= _
        outputPath & "\Merge File.xls", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
        Windows("Merge File.xls").Activate

'Folder selection
    Dim fPath As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .InitialFileName = "C:\2010\"
        .Show
        If .SelectedItems.Count > 0 Then
            fPath = .SelectedItems(1) & "\"
        Else
            MsgBox "No path chosen, aborting."
            Exit Sub
        End If
    End With

    Workbooks.Add
     
    ActiveWorkbook.SaveAs Filename:=fPath & "Merge File.xls", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False