Problem med FSO - TexStream

1. jeg vil gerne læse en linie i et .txt dokument
2. jeg vil tælle antal bogstaver i linien
3. jeg vil læse text-linien bogstav for bogstav... dvs en ad gangen

indtil videre ser scriptet sådan her ud :

<%
    Dim txtArr(500)
        Set fs=Server.CreateObject("Scripting.FileSystemObject")
        Set f=fs.OpenTextFile(Server.MapPath("text.txt"), 1)
        txtTemp = Len(f.ReadAll)
       
    For txtRead = 1 to txtTemp
        f.Skip(txtRead -1)
        txtArr(txtRead) = f.Read(1) 'Linie 10
    Next
        f.Close
        Set f=Nothing
        Set fs=Nothing
%>

Hvorfor får jeg fejlen :

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A003E)
Input efter filens slutning
/datalogi/TypeConv.asp, line 10