Código: Seleccionar todo
Dim Dato As String, sDato() As String
Dim i As Integer
sDato() = Split(Dato, " ")
For i = 0 To [color=#BF0000]FUNCION[/color](sDato)
MsgBox sdatos(i)
Next i
Código: Seleccionar todo
Private Sub Form_Load()
Dim bvData(0 To 1, 2 To 3) As Byte
Debug.Print UBound(bvData, 1)
Debug.Print LBound(bvData, 1)
Debug.Print UBound(bvData, 2)
Debug.Print LBound(bvData, 2)
End SubGracias por el dato.cobein escribió:Un dato mas simplemente para completar esto, Ubound y Lbound aceptan un 2do parametro opcional para indicar la dimension.
Código: Seleccionar todo
Private Sub Form_Load() Dim bvData(0 To 1, 2 To 3) As Byte Debug.Print UBound(bvData, 1) Debug.Print LBound(bvData, 1) Debug.Print UBound(bvData, 2) Debug.Print LBound(bvData, 2) End Sub
