La función VBA UBound devuelve el índice más grande disponible para la matriz especificada.
UBound(matriz)
O
UBound(matriz, dimensión)
Usando la función UBound para obtener el índice de cada una de las 2 dimensiones de la matriz:
Sub UBoundExample1()
Dim array(10, 4)
'El índice máximo de la primera dimensión.
MsgBox UBound(array) 'Devoluciones: 10
'El índice máximo de la segunda dimensión.
MsgBox UBound(array, 2) 'Devoluciones: 4
End Sub
Usando la función UBound para obtener la cantidad de valores en la matriz creada por la función SPLIT:
Sub UBoundExample2()
link = "www.moonexcel.com.ua"
'Dividir una cadena de caracteres en una matriz
array = Split(link, ".")
'Número de elementos de la matriz (sabiendo que la matriz comienza en 0)
number = UBound(array) + 1
'Mostrar el número de elementos de la matriz
MsgBox number 'Devoluciones: 4
End Sub