Select a file with the Microsoft file dialog. Requires reference to Microsoft Object Library x.x, where x.x is the version number.

SaveExportAs.vb

Function SaveExportAs(title As String, extension As String) As String

    Dim dlg As FileDialog
    Set dlg = Application.FileDialog(msoFileDialogSaveAs)
    
    With dlg
        .title = title
        .InitialFileName = "C:\docs\" & extension
        If .Show = True Then
            SaveExportAs = .SelectedItems(1)
        End If
    End With
    
End Function