Считывание данных из второй строки в переменную - VB

Dim Fh As String
Dim S As String
Dim i As Integer 
Dim tS As String 
Private Sub Form_Load()
Fh = FreeFile()
Open ("C:\PerfLogs\Admin\vsx.dat") For Input As Fh
For i = 1 To 5
Line Input #Fh, tS
If i = 2 Then S = tS
Next i
Close #Fh
Label1.Caption = S
End Sub