dim Arr as Array
Arr = Split(textbox.text, "-", -1, CompareMethod.Binary)
For i = 0 To Arr.Length - 1
    'Arr(i):     
Next