Visual Basic - Me ha fallado la idea

Veras, lo he puesto así.:

Private Sub Text2_Change()
Dim i As Integer
Text2.Text = UCase(Text2.Text)
i = Len(Text2.Text)
Text2.SelStart = i

If Len(Text2) = 4 Then
temp1 = Left(Text2, 2) ' AA
temp2 = rigth(Text2, 2) 'AA
cad = temp1 & " " & temp2
Text2 = cad 'AA AA
End If

End Sub

Ya que quiero que solo acepte mayúsculas (el campo código se llama Text2)., pero me dice que ERROR DE COMPILACION VARIABLE NO DEFINIDA...

Gracias mil.

Si tienes OPTION EXPLICIT en la parte superior de la ventana de codigo
Debes declarar las variables

dim temp1, temp2, cad as variant

Gracias Harold, pero ahora me da error de compilación en
rigth