First, why is the first value expected to be "01", when it is "-1" in the string? I assume that's a typo.
Also, I assume you want to do this with scripting and not Visual Logic.
You can just use String.Split:
Dim s as String = "-1/0/-1/15"
Dim parts As String() = s.Split("/")
Now the parts array has the values. They are still strings. If you want to convert them to numbers:
For i As Integer = 0 To parts.Length-1
parts(i) = CInt(parts(i))
Next
------------------------------
JohnCorigliano
Senior Software Engineer
ISC
------------------------------