Hola!
Necesitas utilizar las funciones
Left y
Right. Respectivamente, lo que hacen es tomar los
n primeros caracteres de la cadena que le digas, o los
n últimos.
Por ejemplo (suponemos que has cargado el campo en una variable de cadena llamada
dato):
Código:
If Right(dato, 1) = "A" Then
' La cadena termina con "A"
Else
' La cadena NO termina con "A"
End If
Combinando estas dos instrucciones, puedes sacar ambos datos del mismo campo.
También te recomendaría echar un ojo a las funciones
UCase o
LCase, por si esa "
A" no estuviera siempre en mayúsculas.
Cuéntanos que tal.