Dim s As String = "S1911150593,5500000708,0XR52544,1001-101,R0,5080F-5101101,50.0,20191115,R0,5080F-5101102,50.0,20191115,R0,5080F-5202101,60.0,20191115,R0,5080F-5202102,60.0,20191115,R0,5080F-5205010,50.0,20191115,R0,5080F-5205201,87.0,20191115"
Dim s1 As String = s.SubString(0,s.IndexOf("R0")-1)
Output.Show(s1)
Dim s2 As String = s.SubString(s.IndexOf("R0")+3).Replace(",R0,","|")
Dim Values() As String = s2.Split("|")
For Index As Integer = 0 To Values.Length - 1
Output.Show(Values(Index))
Next