ingresa datos de un textbox a un listbox

[gerardo_goh]

Hola que tal amigos, necesito de su ayuda, no he podido resolver mi problema, el problema es el siguiente: tengo 2 textbox, 1 listbox, lo que necesito hacer es ingresar un dato inicial en el textbox1 (por ejemplo: 5) y en el segundo textbox2 ingrese el dato final (por ejemplo: 10), lo que necesito es que me ingrese los datos del text1 hasta el text2 en el listbox: visualmente seria asi:
List1
====
5 --- Dato inicial (Valor del textbox1)
6
7
8
9
10---Dato final (valor del textbox2)

Muchas gracias por su atención, Saludos!!!

[culd]

Código:

Dim X As Integer

For X = CInt(Text1) To CInt(Text2)
    List1.AddItem X
Next X

Saludos

[gerardo_goh]

Hola muchas gracias Culd me sirvio a la perfección, Saludos:
Anexo codigo modificado:

Private Sub cmdPrueba_Click()
Dim X As Integer

For X = CInt(txtInicio.Text) To CInt(txtFinal.Text)
lstFolios.AddItem X
Next X
End Sub