Sub ReadTextReader
Dim TextRd As TextReader
Dim a As String
a=File.Exists("", File.DirDefaultExternal & "/" & "IBRT_IPs.txt")
If a Then
TextRd.Initialize(File.OpenInput(File.DirDefaultExternal, "IBRT_IPs.txt"))
lstData.Clear
Dim line As String
line = TextRd.ReadLine
Do While line <> Null
lstData.Add(line)
line = TextRd.ReadLine
Loop
TextRd .Close
IBRT_IPfile_EXIST=True
Else
Dim lstData As List
lstData.initialize
lstData.Add (txtServerIp.text) <------------------------------------line 1083
File.WriteList(File.DirDefaultExternal, "IBRT_IPs.txt", lstData)
End If
End Sub