Pasar un rango de números de un textbox a un listbox

[erbuson]

Hola, si quieres prueba esta rutina a ver si esto es lo que estas necesitando:

La idea es que al pulsar sobre el Command1, visualices en un List1 separadas las filas del rango indicado.

Si no se indica : la función no se ejecuta
Si indicas :10 visualizarás de 0 a 10

Código vb:

Private Sub Command1_Click()
  Dim Separador As Integer
  Dim Desde As Integer, Hasta As Integer, Numero As Integer
  Separador = InStr(Text1.Text, ":")
  If Separador = 0 Then Exit Sub
  Desde = Val(Left$(Text1.Text, Separador - 1))
  Hasta = Val(Mid$(Text1.Text, Separador + 1))
  List1.Clear
  For Numero = Desde To Hasta
    List1.AddItem Numero
  Next
End Sub
 

Es una idea, en base a lo que entiendo preguntas y el sistema es muy simple y facil de comprender, cualquier duda comentas.

Saludos