questpo codice mi ritorna un errore: E' stato individuato un tipo di dati privo di handle

codice:
valori = Split("1-15;2-10;3-100;",";")
for each i = 0 to Ubound(valori)-1
    idprodotti = Split(valori,"-")
    idpr= idprodotti(0)
Next
come mai?