Inclui los comentarios porque veo que estas muy verde y de este modo te sirve de aprendizaje :P
El sistema es el mismo que en el otro codigo:
Código vb:
Ver original'Creas las matrices
Dim arr1() As String 'En ese momento la matriz no tiene elementos que puedas usar
Dim arr2() As String
Dim arr3() As String
Contador=-1
'Fuera del While ponemos el contador a -1 para poder aumentarlo +1 antes
'de crear cada elemento de las matrices.
'De este modo cuando salgas del bucle no te sobran elementos en la matriz
'Dentro del while...
Do While.....
Contador=contador +1 ' ahora (la primera vuelta) el contador vale 0
Redim Preserve Arr1(contador) ' y creamos el primer elemento de cada matriz
Redim Preserve Arr2(contador) ' preservando los que ya guardaba (las siguientes vueltas, claro)
Redim Preserve Arr3(contador)
'Los cargamos
Arr1(Contador)=uom(0)
Arr2(Contador)=uom(1)
Arr3(Contador)=uom(2)
' y a por otro
Loop
Espero que te sirva de ayuda. (esta vez no lo he probado, supongo que estara bien)
Saludos
EDITO:
Lo corrijo, estaba usando mal las matrices para lo que tu quieres.