Добрый день, помогите вызвать окно Save As для сохранения моих параметров в существующий XML файл, пока есть такой код:

Скрытый текст

Код ? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub WriteXML()         If varFile = Emply Then             If MsgBox("You must open your configuration file first!", vbCritical, "Error") = vbOK Then                 Exit Sub             End If         End If             If MsgBox("Save data to:" & Chr(32) & varFile & Chr(32) & "Do you want continue?", vbYesNo, "Warning") = vbYes Then                 DFXConfigFile.SelectSingleNode("/settings/settingsPR3/fMeterId_SerialNumber").Text = Settings.Range("E4")                 DFXConfigFile.SelectSingleNode("/settings/settingsCommon/iMeterSize").Text = Settings.Range("E5")                 DFXConfigFile.SelectSingleNode("/settings/settingsPR1/fKFactor").Text = Settings.Range("E8")                 DFXConfigFile.SelectSingleNode("/settings/settingsPR1/fMeterFactor").Text = Replace(Settings.Range("E9").Value, ",", ".")                 DFXConfigFile.SelectSingleNode("/settings/settingsPR1/fBodyFactor").Text = Replace(Settings.Range("E10").Value, ",", ".")                 DFXConfigFile.SelectSingleNode("/settings/settingsPR1/iCalibrationType").Text = Settings.Range("E11")             For I = 0 To 15                 DFXConfigFile.SelectSingleNode("/settings/settingsPR1/fQMFCalCoefs/fQMFCalCoef_" & I + j).Text = Replace(Settings.Range("R" & j + 4).Value, ",", ".")                 DFXConfigFile.SelectSingleNode("/settings/settingsPR1/fQMFCalCoefs/fQMFCalCoef_" & I + j + 1).Text = Replace(Settings.Range("S" & j + 4).Value, ",", ".")                 DFXConfigFile.SelectSingleNode("/settings/settingsPR1/fPNMFCalCoefs/fPNMFCalCoef_" & I + j).Text = Replace(Settings.Range("V" & j + 4).Value, ",", ".")                 DFXConfigFile.SelectSingleNode("/settings/settingsPR1/fPNMFCalCoefs/fPNMFCalCoef_" & I + j + 1).Text = Replace(Settings.Range("W" & j + 4).Value, ",", ".")                 j = j + 1                 Next I                 DFXConfigFile.Save varFile             End If End Sub

При выполнении макроса, данные пишутся по преждее открытому пути varFile. Как вызвать окно сохранить как и указать путь самостоятельно?