Comparar una cadena

[natalyro]

Hola a todos los foreros,

tengo una pregunta muy sencilla, pero que no he podido resolver.

tengo un codigo que debo deigitar en un formulario pero si el codigo empieza por 4 debe tener la letra A al final, y si empeza por 8 sin la A.

pues bien ya hice lo de la letra A y me valida por si no lo ingresaron con A, pero resulta que tambien me valida con el 8, es decir si pongo el codigo por el 8 tambien me pregunta que ponga la A y no necesito.

Anexo mi codigo

var = Text_Product.Text
If var Like 4 Then
var1 = Right(Trim(var), 1)
If var1 = "A" Then
Else
MsgBox "debe ingresar el código con la letra A al final"
Connect_2.Close
Exit Sub
End If

Else

.
.
.

[seba123neo]

Hola, te lo hice asi nomas a ver si mas o menos entendes:

Código vb:

Private Sub Command1_Click()
    Dim vCodigo As String
    vCodigo = LCase(Trim(Text1.Text))
    If vCodigo = "" Or Len(vCodigo) < 2 Then Exit Sub
    If Left(vCodigo, 1) = "4" Then
        If Right(vCodigo, 1) = "a" Then
            MsgBox "empieza con 4 y termina con a", vbInformation
        Else
            MsgBox "empieza con 4 y NO termina con a", vbExclamation
        End If
    ElseIf Left(vCodigo, 1) = "8" Then
        If Right(vCodigo, 1) = "a" Then
            MsgBox "empieza con 8 y termina con a", vbExclamation
        Else
            MsgBox "empieza con 8 y NO termina con a", vbInformation
        End If
    Else
        MsgBox "no se cumple ninguna de las anteriores", vbCritical
    End If
End Sub
 

saludos.

[natalyro]

Gracias Seba123neo, porfin alguien respondió.

cuando me respondiste ya habia encontrado la solución era muy sencillo pero ya de lo cansada ni pienso.

de todas maneras gracias porque lo necesitaba con urgencia y fuiste el unico que se interesó.

así lo resolví

var = Trim(Text_Product.Text)

If Left(var, 1) = 4 Then
If Right(var, 1) <> "A" Then
MsgBox "debe ingresar el código con la letra A al final"
Connect_2.Close
Exit Sub
End If
End If