use this function for reading txt file. and use your logic to save txtfile data to save
Public Sub getdataFromTxtFile(ByVal FilePath As String)
Dim r As System.IO.StreamReader = System.IO.File.OpenText(FilePath)
Dim inputString As String
inputString = ""
Dim line As String
Do
line = r.ReadLine()
If line IsNot Nothing Then
inputString = inputString + line
End If
Loop While line IsNot Nothing
End Sub