This code works correctly. I've just tried it. The output is:
Sub Activity_Click
Dim str As String = "abc|def|efg"
Dim x() As String = Regex.Split("\|", str)
For Each s In x
Log(s)
Next
End Sub
Copying updated assets files (4)
*** Service (starter) Create ***
** Service (starter) Start **
** Activity (main) Create, isFirst = true **
** Activity (main) Resume **
abc
def
efg