Где ошибка в коде вируса?

Dim timer
Dim number As Variant

Private Sub Form_Load()
Form1.Visible = False
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
timer = timer + 1
If timer > 1 Then
Virus
End If
End Sub
Sub Virus()
f = FreeFile
Open App.Path & "\" & number & ".txt" For Output As #f
Print #f, "Вторжения инопланетных рас, в OC Windows!"
Print #f, "Расы, объявившие войну: "
Print #f, "1. Мембарци"
Print #f, "2. Тени"
Print #f, "3. Нарны"
Print #f, "4. Центавр"
Close #f
End Sub