Visual Basic - Ayuda Porblema Pequeño Por Favor!

hola amigos saben necesito hacer un listado con codigos
para saber a que area pertenece en visual basic lo mas sencillo
posible (no quiero ocupar base de datos por que no es mucho) , intente con condiciones if pero no me resulto
miren para que tengan una idea de como es , aqui va un ejemplo..

9345 hasta 9358 --- area 1

9359 hasta 9400 -- area 2

yo ingreso el numero en la casilla text y al lado me carga una imagen que dice el nombre del area.. pero al poner en el text (sigo con el ejemplo) 9359 que segun el ejmplo es area 2 me carga la imagen de area uno por el hecho de empesar con estos primero 3 digitos 935 y al cuarto numero carga encima la otra imagen

If Text1.Text <= "9999" And Text1.Text >= "9996" Then
Picture4.Visible = True
End If
If Text1.Text <= "9995" And Text1.Text >= "9991" Then
Picture2.Visible = True
End If

esta bien que puedo hacer??? la idea es que tome los numeros dentro de los rangos al ingresar el cuarto numero en el text , pq todos los codigos son de 4 numeros mostrara la imagen al ingresar el 4 numero pq al mostrarla en el tercero puede haber mas de un area con lo mismo.. de antemano muchas gracias

a ver si te sirve

If Text1.Text <= "9999" And Text1.Text >= "9996" Then
Picture4.Visible = True
End If
else
Picture2.Visible = True
End If

Private Sub Text1_Change()
Select Case Len(Text1.Text)
Case Is = 4
If Text1.Text > "0" And Text1.Text <= "9999" And Text1.Text >= "9996" Then
Picture4.Visible = True
End If
If Text1.Text > "0" And Text1.Text <= "9995" And Text1.Text >= "9991" Then
Picture4.Visible = True
End If
End Select
End Sub