Sub AppStart (Form1 As Form, Args() As String)
Dim text As String
text = "Unwanted text here including CRLF etc $$SOE 2457445.638888889, A.D. 2016-Feb-27 03:20:00.0000, -3.434088981408140E+00, -9.406082070997213E+00, 3.002006542448317E-01, 4.935555086865448E-03, -1.935056934039580E-03, -1.632165803143835E-04, 5.785831922971549E-02, 1.001785743017802E+01, 1.201026543732353E-04, $$EOE unwanted text after here and more CRLF "
Dim data2() As String = Regex.Split("\$\$",text)
Log(data2(0)) 'Unwanted text here including CRLF etc
Log(data2(1)) 'SOE 2457445.638888889, A.D. 2016-Feb-27 03:20:00.0000, -3.434088981408140E+00, -9.406082070997213E+00, 3.002006542448317E-01, 4.935555086865448E-03, -1.935056934039580E-03, -1.632165803143835E-04, 5.785831922971549E-02, 1.001785743017802E+01, 1.201026543732353E-04,
Log(data2(2)) 'EOE unwanted text after here And more CRLF
Log("***")
Dim data() As String = Regex.Split(",", data2(1))
For Each s As String In data
Log(s)
Next
End Sub