Felicidades por tus recursos al desarrollar esa función, pero al trabajar con VB podrias ahorrarte muchas lineas simplificando esa función en algo como esto:
If
car.IsLetterOrDigit(car) Or car.GetUnicodeCategory(car) = Globalization.UnicodeCategory.Control Then : return true
else : return false
end if
Esta función ya te deja usar el bakspace y las flechas de función
Si quieres una funcion para cada validación simplemente cambia IsLetterOrDigit por IsLetter() o por IsDigit()
Enjoy.
Aldeamedia
http://www.aldeamedia.com