Visual Basic - validar letra en un text?

Hola,
quisera hacer la siguiente validacion en un text:
la validacion es para la palabra ANAMARIA
si el usuario ingresa un letra diferente a la A sale un error y borra el contenido del text, si ingresa una A debe guardarla y validar la siguiente letra hasta completar la palabra correcta completamente.

Muchas gracias a quien me pueda ayudar

Puedes probar poniendo un Label cuyas prodiedades Caption seria "ANAMARIA" Y VISIBLE SERIA FALSE Y LUEGO EN el evento Change del TextBox PROGRAMAS:
for I=0 to len(TRIM(LABEL1.CAPTION))
IF MID(TEXT1.TEXT,I,1)<>MID(LABEL1.CAPTION,I,1)
MSGBOX "ERROR NO COIMNCIDEN NOMBRES"
TEXT1.TEXT=""
TEXT1.SETFOCUS
EXIT FOR
END IF
NEXT I

ESPERO TE SIRVA

Tambien pudieras crear un Array, el cual recorres y te aseguras que sea la letra que le corresponde segun su pocision:

ANAMARIA
12345678

asi verificas que 1=A, 2=N....si algo no es igual, MSGBOX "ERROR!!"

suerte