codice:
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("testfile.txt", True)

Dim record As String
Open "bv0103.txt" For Input As #1
Do While Not EOF(1)
   Line Input #1, record 
   If Left(record, 3) = "500" Then
      a.writeline (record)
   End If
Loop
Close #1
a.Close
volevo sapere qual'è il comando per muovermi alla riga successiva?
...
line input fa già quello che dici, legge la linea esi sposta su quella dopo, se la richiami N volte ti sposti di N righe
...