//ADD This Below the Public Const ImAxPlayer
Dim fso As Scripting.FileSystemObject
Dim txtFile As Scripting.TextStream

Set fso = New Scripting.FileSystemObject
Set txtFile = fso.OpenTextFile("C:\test\test.txt", ForWriting, True)

^Make Sure you change the test.txt, also create a blank  one just in case

Then under the event_usertalk subroutine add

 If LCase(Left(Message, 4)) = BotVars.Trigger & "win" Then
            txtFile.WriteLine Username & "|0|0"
            txtFile.Close
  End If