Visual Basic - problemas comparacion

esta es la seccion de codigio a la que me voy a referir:
For i = 1 To Len(Text1.Text)
.
.
.
If Mid(Text1.Text, i, 1) = ">" Then
a = Len(exp)
exp1 = Mid(Text1.Text, a + 4, a)

If StrComp(exp, exp1, vbTextCompare) = 0 Then
exp1 = Mid(Text1.Text, a + 4, a)
Text2.Text = exp & exp1 & "iguales"
Else
x = i - a
exp1 = Mid(Text1.Text, a + 4, x)
Text2.Text = exp & exp1 & "diferentes"
End If
End If
next

tecleo un valor por ejemplo "1 ", después tecleo otro valor seguido de ">", hace la comparación del primer valor (almacenado en la variable exp) y el segundo (almacenado en variable exp1), el segundo valor que teclee es diferente de uno, el problema es que despues de meter otro valor (ya con e primer valor en exp y el segundo en exp1) se sigue almacenando todo lo que tecleo en exp1 siendo que el ultimo caracter de text1 no es ">", no deberia entrar al ciclo if, pero al parecer lo hace, no se que sucede
ayuda por favor!