Sometimes I get an error when performing this code, anyone know how to avoid this error? Trying to Append Open File


Private Sub Save_Click()

Dim i As Integer

Open "events.txt" For Append As #1

For i = 0 To Events.ListCount
Print #1, Events.List(i)
Next i

For i = 0 To Players.ListCount
Print #1, Players.List(i)

Next i

'Save the text from Text1 as well
Print #1, Session.text
Print #1, Map.text
Print #1, MaxScore.text
Print #1, MaxTime.text
Print #1, MaxTons.text

Close #1

End Sub