Dim mUIV
Set mUIV = CreateObject("UIView32.clsUIV")

Dim acount

Set objFile = CreateObject("Scripting.FileSystemObject")
Set fileHandle = objFile.CreateTextFile("saveMessages.out", True)

For acount = 0 To mUIV.intMessageWindowCount -1
  fileHandle.WriteLine("Message Window "+CStr(acount+1))
  fileHandle.WriteLine("")
  fileHandle.WriteLine(mUIV.strMessageWindowData(CInt(acount)))
Next 
	
fileHandle.Close

MsgBox "Saved to saveMessages.out"