split lat lng values

i get lat lng values try to save in excel file but when i open the file

i try this

Dim s2 As String = ""
Dim s3 As String = ""
Dim s2 As String = ""
For Each p1 As PointLatLng In parallelLines3
s2 += p1.Lat.ToString() + "," + p1.Lng.ToString()
Next
For Each p2 As PointLatLng In parallelLines4
s3 += p2.Lat.ToString() + "," + p2.Lng.ToString()
Next
Clipboard.GetData(s2)
oExcel = CreateObject("Excel.Application")
oBook = oExcel.Workbooks.Add

oSheet = oBook.Worksheets(1)
oSheet.Range("A1").Value = s1
oSheet.Range("A2").Value = s2

oBook.SaveAs("C:\Book2.xls")
oExcel.Quit()
End If
data is like

A1

1 23, 33 2.34, 234

but i want lat and long values in separate columns

A B

1 LAT Values lng values

how i do that