Byta siffror till text

Jag har en kodsnutt som jag använder till en räknare. Om jag skulle vilja använda denna till att istället spara text i textfilen, och inte skriva över utan lägga efter i filen, hur skulle jag lämpligen omforma denna kod.
Jag har förstått så mycket som att jag ska byta ut ettan mot en åtta för att den inte ska skriva över filen, men vad behöver jag mer ändra på?
Tacksam för hjälp!

<%
application.lock
          application.contents("antal")= application.contents("antal") +1
          application.unlock

          Set F = CreateObject("Scripting.FileSystemObject")
          Set T = F.CreateTextFile("antal.txt")
          T.WriteLine Application.Contents("antal")
          T.Close
          Set A = CreateObject("Scripting.FileSystemObject")
          Set B = A.OpenTextFile("antal.txt", 1)
          Visits = B.ReadLine
          B.Close 
%> Annonsen har lästs <% =Visits %> gånger