Ошибка в синтаксисе - VB

Формулировка задачи:

Предпоследняя срока..... пожалуйста подскажите
Private Sub LegalArea_GotFocus()
Dim wer As Variant, wer2 As Variant
wer = str(Me.LegalArea)
If IsNull(wer) Then Exit Sub
wer2 = DLookup("Meters", "S_AreaUnits", "Code=" & str(Me.LegalAreaUnit))
If IsNull(wer2) Then MsgBox ("íîëü") Else Me.LegalArea = wer / wer2
End If
End Sub

Решение задачи: «Ошибка в синтаксисе»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Sub</font> LegalArea_GotFocus()
<font color="blue">Dim</font> wer <font color="blue">As</font> <font color="blue">String</font>
<font color="blue">Dim</font> wer2 <font color="blue">As</font> Variant

    wer = CStr(<font color="blue">Me</font>.LegalArea.Text)
    <font color="blue">If</font> wer=<font color="teal">""</font> <font color="blue">Then</font> <font color="blue">Exit</font> <font color="blue">Sub</font>

     wer2 = DLookup(<font color="teal">"Meters"</font>, <font color="teal">"S_AreaUnits"</font>, <font color="teal">"Code="</font> & wer)

    <font color="blue">If</font> <font color="blue">Not</font> IsNumeric(wer2) <font color="blue">Then</font> 
        MsgBox (<font color="teal">"íîëü"</font>) 
    <font color="blue">Else</font> 
        <font color="blue">Me</font>.LegalArea.Text = CDbl(wer) / CDbl(wer2)
    <font color="blue">End</font> <font color="blue">If</font>


<font color="blue">End</font> <font color="blue">Sub</font>
                        