Dim StartTime
Dim EndTime
Dim GameStatus
Dim TotalTime
GameStatus = False

Sub GameOn()
If GameStatus = False then
  StartTime = Date & " " & Time
  GameStatus = True
Else
  EndTime = Date & " " & Time
  GameStatus = False
  TotalTime =  DateDiff("s", StartTime, EndTime)
  SendCommand "/echo -a " & GetDuration(TotalTime)
End If

End Sub