Hola,
Por que no puedo hacer la resta bien
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

Quiero que el segundo valor de y se reste con el primero y asi sucesivamente. Pero no puedo

Restar, resta bien.
Lo que no se sabe que queres hacer.
Por ejemplo: Ingresas valores de x(n) y no lo usas. No se sabe para que
lo ingresas.
Despues el segundo valor es fijo Y(100), es decir es el ULTIMO VALOR
SIEMPRE. Creo que debes revisarlo bien. Pero BIEN.

Espero que el siguiente codigo te sea de utilidad lo diseñe pensando solo en 3 listbox que los puedes pasar como parametros al sub para no confundirte se llaman lstx, lsty y lstresta y el command cmd_valores, espero que lo entiendas y si no con gusto te ayudo

Private Sub cmd_VAlores_Click()

Call Agrega_Datos(lstX, lstY, 2)



End Sub

Private Sub Agrega_Datos(x As ListBox, y As ListBox, Optional Max As Integer = 10)
Dim i As Integer
Dim Valor As Integer

x.Clear
y.Clear

For i = 1 To Max
Valor = InputBox("Ingresa Valor de X")
x.AddItem Valor
Valor = InputBox("Ingresa Valor de Y")
y.AddItem Valor
Next

Resta x, y, lstResta

End Sub

Private Sub Resta(x As ListBox, y As ListBox, Resultado As ListBox)

Resultado.Clear

For i = 0 To x.ListCount - 1
y.Selected(i) = True
x.Selected(i) = True

Resultado.AddItem Val(y.Text) - Val(x.Text)
Next

End Sub