così funziona
Dim lst As String() = Split(str, "#SPLIT#", 0)