Vbs reads TXT to read specific rows

Read the content of the third row:
Set FSO = Createobject ("scripting. FileSystemObject ")
Path = "A. txt file path"
Set a = FSO. opentextfile (path, 1)
For I = 1 to 2
A. Readline
Next
Line = A. Readline
Msgbox "third behavior:" & Line

The fourth line contains 2nd to 5th characters:

Set FSO = Createobject ("scripting. FileSystemObject ")
Path = "A. txt file path"
Set a = FSO. opentextfile (path, 1)
For I = 1 to 3
A. Readline
Next
A. Read (1)
STR = A. Read (4)
Msgbox "The fourth line contains 2nd to 5th characters:" & Str