Visual Basic - Dos Numeros determinal los comprendidos entre ell

Es que debo de determinar Entre Dos Numeros cual es el mayor, y luego DETERMINAL cuales son los NUMEROS INTERMEDIOS ENTRE ellos dos

Nota No tengo problema para determinal el mayor solo para realizar ese contador ahi
Gracias por su ayuda

Private Sub Command1_Click()
List1.Clear
Dim x, y As Integer
x = Val(Text1.Text): y = Val(Text2.Text)
List1.Height = 200 * (y - x)
For n = x + 1 To y - 1
List1.AddItem n
Next n
End Sub

Gracias Juan carlos
Muchas Gracias
bye

Gracias Juan carlos
Muchas gracias
bye