Visual Basic - problema de asignacion

Tengo un problema que tal vez parezca básico, pero estoy luchando con el, no se que hacer, necesito ayuda del que pueda brindármela...

Intentoasignar el valor escrito de un textbox a una variable y me muestra el error: “La llamada a Function en la parte izquierda de la asignación debe devolver un tipo Variant u Object”,
el codigo es siguiente:

Private Sub Text1_Change()
If Text1 <> "" Then
If Mid(Text1.Text, 1) <> " " Then
For i = 1 To Len(Text1.Text)
If Mid(Text1.Text, i, 1) = "=" Then
exp = Left(Text1.Text, i - 3) 'el error se dan en exp, una variable que declare en el form load
End If
Next
End If
End If
End Sub

deseo que lo escrito antes del simbolo "=" se guarde en la variable exp pero me manda ese error
Muchas gracias de antemano

Declara la variable en el encabezado del módulo antes de cualquier procedimiento y elimina condiciones innecesarias en el código.

Dim exp As String

Private Sub Form_Load()
' ....
End Sub

Private Sub Text1_Change()
For i = 1 To Len(Text1.Text)
If Mid(Text1.Text, i, 1) = "=" Then
exp = Left(Text1.Text, i - 1) ' aquí no sé porqué pones -3
End If
Next i
End Sub