Alright i posted one before and it didn't work exactly the way i wanted it to so i recoded it and made a much better way without using Replace. It need's two functions to work,
PUBLIC FUNCTION NthField(s AS String, delimiter AS String, field AS Integer) AS String
DIM t1 AS String[]
DIM i AS Integer
t1 = Split(s, delimiter)
RETURN t1[field]
END
PUBLIC FUNCTION VBSplit(s AS String, delim AS String, numfields AS Integer) AS String[]
DIM arr AS String[]
DIM t AS String
DIM i AS Integer
arr = NEW String[]
FOR i = 0 TO numfields - 1
arr.Add(NthField(s, delim, i))
NEXT
t = arr.Join(delim)
arr.Add(Mid(s, Len(t) + 1))
RETURN arr
END
