Comparar una cadena

[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.