Visual Basic para Aplicaciones - como se el ultimo indice de un array

buen día haber estoy realizando un trabajo y quisiera saber como solucionar lo siguiente:

tengo un array llamado entidad el cual tiene n nombres o sea es de tipo string esto es lo que tengo:

Dim entidad() As String

entidad = Array( "CONTRATISTA", "EMPLEADOS", "EPS", "ARP")
i = 0
While entidad(i) <> ""
i = i + 1
Wend

el objetivo es despues de esto redefinir a entidad con indice maximo= i, pero el dilema es que cuando el while hace la comprobación i llega a 5 y produce un error como prodria solucionarlo sin darle indice a entidad en la parte superior o sea cuando lo defino.

podrias decir en que lenguaje es esto??
porque con VB puedes obtener el largo de un array con ubound(array)

Hola, si sabes el número de posiciones del array es mejor usar FOR ya que el pc ejecuta más rápido una for que una while.

Para tratar arrays en VB tienes varios comandos:
UBound(ARRAY) > Devuelve el número máximo de elementos
LBound(ARRAY) > El primer elemento del array, que no siempre es 0
ReDim Array([Nº ELEMENTOS]) > Redimensiona SIN PRESERVAR LOS DATOS el array.
ReDim Preserve Array([Nº ELEMENTOS]) > Igual que el anterior pero conserva los datos anteriores del array.

El comando ReDim Preserve no es muy recomendable llamarle muy a menudo, por ejemplo cada vez que vas a añadir una nueva posición a array porque según lo explica Microsoft en MSDN, primero selecciona la memoria del PC como otro array de X elementos y después copia los datos. Es un proceso lento.

Bueno José sabiendo esto y definiendo la variable i, puedes hacer bien tu trabajo.

Unos ejemplos:

Usando WHILE:
=====================================

Usando DO:
=====================================

Usando FOR:
=====================================

Espero que te sirva y un saludo.