Set objFSO=CreateObject("Scripting.FileSystemObject")

outFile="E:\Text.txt"
Set objFile = objFSO.CreateTextFile(outFile,True)
objFile.Write "medacom test string" & vbCrLf
objFile.Close