Visual Basic - Duda con Textbox!!!!

Hola programadores, se me ha presentado un problema ya que poseo un textbox el cual esta codificado para que el usuario al escribir en él un número me detecte automaticamente el nombre del estado al que pertenece ese número (código) . Por ejemplo si coloca "1" me pondria el estado "Dtto Capital" pero si coloco "10" es "Guarico". Ahora bien tengo el problema que si se coloca 19 el cual no pertenece a ningun estado me sigue mostrando Guarico. Como puedo hacer en este caso para que me tome el número exacto ya que he intentado con el "val" y nada pero de igual forma no puedo. El código que tengo actualmente es el siguiente:

Private Sub TXTcodedo_Change()
If TXTcodedo <> "" Then
Set OFICI = DATA.OpenRecordset("Select distinct CODEDO, ESTADO from OFICINAS where CODEDO = " & TXTcodedo.Text & "")
If OFICI.RecordCount > 0 Then
OFICI.MoveFirst
Do While Not OFICI.EOF
TXTestado.Text = OFICI!estado
OFICI.MoveNext
Loop
End If
Else
TXTestado = ""
End If
End Sub

Intente colocar algo asi:
If TXTcodedo.MaxLength = Len(TXTcodedo.Text) Then
Pero no me sirve porque se guinda la aplicación y tampoco le vi mucho sentido... Agradeceria muchisimo de tu ayuda

QUE TAL

1) POR QUE NO USAR UN COMBOBOX?

2) DIVIDE ESO EN 2 RECORDSET

2.1) PREGUNTA SI EXISTE EL CÓDIGO DEL ESTADO
2.2) EXISTE=SI -> ENTONCES BUSCO EL NOMBRE DEL ESTADO Y LO METO EN EL TEXTO DE NOMBRE DE ESTADO
2.3) EXISTE=NO->ENTONCES MUESTRO MENSAJE DE "CODIGO MALO"

pregunta: existen varios nombres de estado por código? pregunto por curiosidad, soy compatriota

Hola, bueno lo de los combo box no lo he querido utilizar ya qu eel proceso de transcripción tiene que ser rapido y por eso no opte por esa opcion.

Cada código pertenece a un estado y por eso lo que necesito es saber si por ejemplo al colocar 5 que me pone Apure esta perfecto pero si coloco 55 me sigue dejando apure y no es la idea ya que necesito que me lea completamente la cadena y la compare con la base de datos para que no exista ese problema... Gracias por la ayuda que me puedas dar colega

Hey

Y puedes implementar la solución que propongo?

Puedes primero buscar si existe el código, si es afirmativa la respuesta entonces escribes el nombre del estado, sino, no escribes nada o colocas "Código Incorrecto"

Un Recordset para buscar el código

Ejemplo :

"Set rs=db.OpenRecordSet("Select * from TABLA where codigo=""& TextCodigo &"")
if rs.recordcount>0 then
Set rs2=db.OpenRecordSet("Select ESTADO from TABLA where codigo="" TextCodigo "")
else
msgbox "Codigo Malo"
end if

Es una solución a vuelo de pajaro, cuentame si te sirve

Suerte