Evidentemente tienes que usar un bucle
Prueba algo así, por ejemplo de 10 a 15
Dim a As Integer = 10
Dim b As Integer = 15
Dim c As Integer
While a < b
c += b
b -= 1
End While
Pero se puede hacer de mil maneras...
Dim a() As Integer = {11, 12, 13, 14}
Dim b As Integer
Dim c As Integer
For Each b In a
c += b
Next b
MsgBox(c)
Más elaborado, para que detecte si "a" es mayor o menor que "b":
dim a as integer = textBox1.textç
dim b as integer = textBox1.text
dim c as integer
If a < b Then
While a < b
c += b
b -= 1
End While
Else
While a < b
c += b
b+-= 1
End While
End If
O como dice jorcoval, puedes comparar los valores y asignarlos a una variable antes.
