這一段程式為什麼不能執行？

Private Sub Text1_Change()
If Test1.lostfocue Then
Text1.setFocue
End If
End Sub

Private Sub Text2_Change()
If test2.lostfocue Then test2.setfouse
End Sub

我希望達到的結果是：
當我開啟檔案時，游標在文字框1
當我點選2時就宕機了