SoloCodigo

hola a todos.
soy nueva en el foro. trabajé con vb hace ya algún tiempo y ahora lo necesito para un proyecto que debo entregar a más tardar en un mes.
resulta que estoy conectada a una bd en un as400, ya establecí las conexiones de la tablas vinculándolas, hice una consulta que me devuelve, entre otros datos, el número de almacén que puede ser "co", "re", "pr", etc.
Quiero que en una etiqueta me muestre el número de almacén y en el editor de visual basic poner un if que mende el texto "RECIBO" o "COMPONENTES" a otras dos cajas de texto. Es decir, si num.almacen="re" poner "recibo" en el texto12, si  num.almacen="co" poner "componentes" en el texto14, si no es ninguno escribir "vacio".
no sé si me entienden, creo que el asunto es sencillo, el problema es que no recuerdo como se hace, si tengo que llamar a la propiedad text = "recibo" o cómo.
gracias

este es el código que estoy manejando:
Private Sub LSLANR_Change()
If LSLANR.Text = "CO" Then Texto12.Text = "Componentes"
Else: Texto14.Text = "Recibo"
End If
End Sub

Hace mucho que no trabajo en Visual Basic pero me parece que la sintaxis del generador de código de access es distinta a pesar de que es vb. A lo mejor es el if lo que falla, cómo puedo arreglarlo?
Además de esto, debo meter cálculos y la verdad es que no pensé que fuera a tardar tanto con esto. Estos cálculos vienen hasta que haya obtenido toda mi información y tener esto me servirá de base. garcias otra vez

Ya entendí cómo debe ir el código, ya está bien, según yo. El problema es otro ahora, en qué evento tengo que poner el código. El valor de la caja de texto está cambiando según me desplazo en los registros de formulario, ásí que lo metí en un Change, y como al abrir tiene el valor "re" si escribe "Recibo" pero cuando cambia a "CO" sigue diciendo "Recibo". Este es el código, puede alguien decirme dónde hay que ponerlo para que esté cabiando conforme me muevo en los registros?

cadena = ""
cadena2 = ""
cadena = "Componentes"
cadena2 = "Recibo"
If LSLANR = "CO" Then
    Texto12 = cadena
    Else
        Texto14 = cadena2
End If