Text Dosyası Mesaj

Sub Main()
    Call MsgBoxToTxt("This is a message", "Sample Message")
End Sub
Sub MsgBoxToTxt(MsgHeader, MessageBody)
    Dim Fso, tmpFolder, msgFileName, msgFile, wshshell
    Set Fso = CreateObject("Scripting.FileSystemObject")
    tmpFolder = Fso.GetSpecialFolder(2)
    msgFileName = tmpFolder & "\Hata.txt"
    Set msgFile = Fso.OpenTextFile(msgFileName, 2, True)
    msgFile.WriteLine (MsgHeader & " : " & vbCrLf & MessageBody)
    msgFile.Close
    Set wshshell = CreateObject("WSCript.shell")
    wshshell.Run "notepad " & msgFileName, 1, True
    Set wshshell = Nothing
End Sub