Rango de numeros

[YAcosta]

Hola. Una consulta, tengo dos textbox donde se introducirán dos números (el primero siempre sera menor) por ejemplo (un ejemplo pequeño)
txtCuenta1= 140
txtCuenta2= 145

Y quiero obtener esta cadena: "140, 141, 142, 143, 144, 145"

Entonces hice este código:

Código: (VB) [Seleccionar]

        NumCuentas = txtCuenta1
        a = Val(txtCuenta1) + 1
        For i = a To Val(txtCuenta2)
            NumCuentas = NumCuentas & ", " & i
        Next i

Y obtengo la cadena, mañana entrego el trabajo pero mi pregunta es si existe alguna función que haga eso.

Saludos

[79137913]

HOLA!!!

NEEEEE!!!


Si, hay una funcion:

Código: (vb) [Seleccionar]

Private Function CreateStringArray(Min As Long, Max As Long) As String
            If Min > Max Then Exit Function
            CreateStringArray = Min
            If Min = Max Then Exit Function
            For i = Min + 1 To Max
                CreateStringArray = CreateStringArray & ", " & i
            Next
End Function
GRACIAS POR LEER!!!

[YAcosta]

Error mio, no me explique bien, debi decir una funcion propia de VB6, por cierto que lo que publique no lo volvi funcion porque solo lo usare una vez ademas que son menos lineas a la vista, sorry debi explciarme mejor, igual muchas gracias.

[79137913]

HOLA!!!

(era una joda [chiste])

GRACIAS POR LEER!!!

[YAcosta]

ahhh ok jaja, no lo había entendido men.

Saludos