Me marca error aquí:

For i = 1 To p
x(100) = InputBox("Dame los valores de x: ")
Lstx.AddItem x(100)
Y(100) = InputBox("Dame los valores de y: ")
Lsty.AddItem Y(100)

y0 = Val(Y(100))
dif(100) = (Val(Y(i + 1)) - y0)
LstD.AddItem dif(100)
Next i
Me dice que el tipo de datos no coincide. Como soluciono esto.