Visual Basic - Cadena de caracteres en un arreglo URGENTE PLEASE!

Hola colegas, necesito hacer una rutina en visual basic la cual me lea la data (que esta hecha en Sql Server) cuya tabla llamada "Personas" contiene los siguientes campos:
Identificacion
Primer Apellido
Primer Nombre
Tambien tengo otra tabla llamada "Estadistica" con los siguientes campos:
Identificacion,
Longitud_Primer Apellido
Vocales_Primer Apellido
Longitud_Primer Nombre
Vocales_Primer Nombre

Y al momento de leer el primer registro me almacena el primer apellido en un arreglo para asi poder leer la longitud del campo y cada caracter para luego evaluar cuantas vocales tiene dicho campo. Cabe destacar que al momento de localizar un primer apellido como por ejemplo "De González" al ya poseer un espacio en blanco como se puede ver entre "e_G" no tomo en cuenta ese registro para hacer el siguiente paso.
El siguiente paso es que cuando el campo no contenga dicho espacio en blanco me almacene en la tabla "Estadistica" los valores que mencione anteriormente en dicha tabla (el número de identificación, la longitud y las vocales) haciendo el mismo procedimiento tambien para el Primer Nombre.

Espero haberme explicado bien y agradezco mucho de antemano toda la ayuda que me puedan prestar. Tengo ya tiempo participando en este foro y se que hay personas muy profesionales y que esta nota pueda servir tambien para otros colegas

Si queres sacar los espacios en blanco usa la funcion Replace, que podes consultar en la Ayuda.
Replace(String, " ","")
Reemplaza un espacio en blanco por un no-espacio.
No tengo la ayuda a mano, asi que puedo equivocarme en algo.
Suerte

Sugiero que te pongas a estudiar un pocoa mas y practiques, deja de pedir cosas en bandeja de plata, pon de tu parte .... estudia un poco !!!

Gracias "colega" algun día necesitaras ayuda tambien:

Esta es la instrucción para quienes la necesiten:

Dim Cadena As String, i As Integer
Cadena = "murcielago"
' checamos que no haya espacios...
If InStr(1, Cadena, " ") = 0 Then
For i = 1 To Len(Cadena) Step 1
If LCase(Mid(Cadena, i, 1)) = "a" Or LCase(Mid(Cadena, i, 1)) = "e"
Or LCase(Mid(Cadena, i, 1)) = "i" Or LCase(Mid(Cadena, i, 1)) = "o"
Or LCase(Mid(Cadena, i, 1)) = "u" Then
' Una vocal.
End If
Next i
End If

un programa con arreglos que tenga cadena para que me de nombres
otro arreglo para que me de calificacion de 3, calif1, calif2, calif3, y determinar el promedio de cada alumno