If (MyFile <> "") Then
	    Save()
	    WScript.Echo MyFile
	End If

cscript SaveAs.vbs

Option Explicit
'//
'// Requirements:
'// COMDLG32.OCX
'// CMDialog ActiveX Control DLL
'//
On Error Resume Next

Dim MyText
Dim MyFile

Main()

WScript.Quit(0)

Sub Main()

	MyText = "Hello World"
	MyFile = SaveAs()

	If (MyFile <> "") Then
	    Save()
	End If 

End Sub

Function SaveAs()

	Dim oDLG

	Set oDLG = CreateObject("MSComDlg.CommonDialog") 
	With oDLG
		.DialogTitle = "SaveAs"
		.Filter = "Text Files|*.txt|My Files|*.myf|All files|*.*"
		.MaxFileSize = 255
		.ShowSave
		If .FileName <> "" Then
			SaveAs = .FileName
		End If
	End With
	Set oDLG = Nothing
End Function

Sub Save()

	Dim fso,f
	
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set f = fso.CreateTextFile(MyFile, True)
	f.Write MyText
	f.Close
	Set f = Nothing
	Set fso = Nothing
End Sub