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

.
.
.