Visual Basic - datos numericos

al poner gravar ya programe para que no me acepte numeros en el nombre pero si combino el nombre con los numeros osea datos numericos con letras si acepta com seria el codigo?

Explica mejor tu pregunta

Existe una funcion en VB IsNumeric() a la que le pasas como argumento la variable que queres analizar. Si contiene un caracter no numérico devuelve False, entonces:
If Not IsNumeric(variable) then MsgBox "Error"
Otra forma de hacerlo seria recorrer uno a uno los caracteres de la variable con la funcion Mid y chequear que el codigo ascii este comprendido entre el rango de codigos ascii de los nros. Es un método un tanto mas complicado pero creo que con la primer funcion solucionarias el problema. Saludos.