Have you thought about using the FileSystemObject to create a report? You can use it to create a file of your choosing, and issue write statements at any point in the test. For example:

Set FSO = CreateObject(''Scripting.FileSystemObject'')
Set reportFile = FSO.CreateTextFile(''C:my_report.txt'',True)
'The file extension type can be changed to another format if needed, such as a .doc
'and the True flag indicates that the file can be overwritten if it already exists

'Now that you have the file object initialized, you would use the WriteLine method to write
'whatever data you want at various points in your script like in this conditional:

If Window(''Test App'').WinEdit(''Username:).Exist Then
reportFile.WriteLine ''The username object is displayed.''
Else
reportFile.WriteLine ''ERROR: The username object is not displayed.''
End If

'And you could also write status messages at various points:

reportFile.WriteLine ''Test Step: Logout Attempt...''

'When done with the writing, we need to close the file to commit the changes and save it:

reportFile.Close

'and release the FileSystemObject from memory:

Set FSO = Nothing