Dim ar() As String
ar = SF.Split2("This is a test to see if this works.", " ")
InputList(ar, "Results", -1)
Sub in Class:
B4X:
Sub Split2(CurrentString As String, Split_At_Delimiter As String) As String() '<- Notice this rank for return after the As String.
'*** Function by RBSoft
Dim t() As String
t = Regex.Split(Split_At_Delimiter, CurrentString)
Return t
End Sub