RE:como se valida el nombre??
Esta funcion permite solo Letras:
Public Function fuValidaLetras(ByVal inKey As Integer) As Integer
Select Case inKey
Case 65 To 90 ' Mayusculas
Case 97 To 122 ' Minusculas
fuValidaLetras = inKey - 32
Case 8, 32, 13
Case Else
fuValidaLetras = 0
Exit Function
End Select
fuValidaLetras = inKey
End Function
La pasas de la siguiente manera, en el evento KEYPRESS de una caja de texto:
KeyAscii = fuValidaLetras(KeyAscii)
Y listo!!
Espero te ayude :)