Strängsplitring

Halloi!

Jag har en variabel "ib" ditt läses in en sträng typ 123456-7.
Jag vill att strängen splitras i två delar. En del innan "-" ska läggas i var "idnum", andra del efter "-" i var "bestallnum".
Mitt lilla snutt ser ut så här:

bi = MinFil.ReadLine

arrArray = Split("bi","-")

  idnum = arrArray(0)
  bestallnum = arrArray(1)

Får det här meddelande:
Microsoft VBScript runtime error '800a0009'
Subscript out of range: '[number: 1]'

Vem ser var skon klämmer?