Dim x As String
Dim y As String
Dim b As String
For i=0 To MyList.Size-1
Dim MyLine As String =MyList.Get(i)
Dim arrLine() As String = Regex.Split(",",MyLine)
x = arrLine(1)
y = arrLine(0)
b = arrLine(3)
ListView1.AddSingleLine(x & ";" & y & ";" & b)
Next
File.WriteList(File.DirRootExternal , "/cr/au.txt", ListView1)