Problem med antal tegn...

Jeg tror du skal åbne f 2 gange..?

Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.OpenTextFile("c:\text.txt", 1)
        strTextInfo = f.ReadAll
    Set f = Nothing
    Set f = fso.OpenTextFile("c:\text.txt", 1)
        If Len(strTextInfo) > 3 Then
            Tegn = f.Read(3)
            If Tegn = "" Then
                f.Skip(10)
            ElseIf Tegn = "&ru" Then
                f.Skip(7)
            End if
            End If
    Set f = Nothing
Set fso = Nothing

Når man læser f.readAll flytter den til EOF/AtEndOf¨Stream.

Så du kan enten bruge str til at finde de 3 karakter eller lukke og åbne filen igen..

Prøv at rette:
Tegn = f.read(3)

Til:
Tegn = mid(str,1,3)

Så koden bliver:

    str = f.readAll
    If len(str) > 3 then
        Tegn = mid(str,1,3
            If Tegn = "" Then
              skip_index = 10
            ElseIf Tegn = "&ru" Then
              skip_index = 7
            End if
        End if