Public Function SaveToFile(ByVal saveThis As String) As Boolean
Try
Dim sb As New FileStream(Application.StartupPath & "\test.txt", FileMode.OpenOrCreate)
Dim sw As New StreamWriter(sb)
sw.Write(saveThis)
sw.Close()
Return True
Catch
Return False
End Try
End Function
Private Function OpenFile() As Boolean
Dim sr As StreamReader
sr = File.OpenText(Application.StartupPath & "\test.txt")
Dim strItems As String
loop through the text file
While sr.Peek <> -1
strItems = sr.ReadLine()
using [b]strItems[/b] add eachline to something here
End While
sr.Close()
Return True file was there...with no errors
End Function