Есть текстовый файл, первый символ каждой строки записать в другой текстовый файл - VB

Option Explicit
 
Private Sub Command1_Click()
     Dim s As String
     Open App.Path & "\1.txt" For Input As #1
      Open App.Path & "\2.txt" For Output As #2
          Do Until EOF(1)
             Line Input #1, s
             Print #2, Mid(s, 1, 1)
          Loop
      Close #2
     Close #1
End Sub