Sub or function not defined - почему выскакивает?

После закрытия диалогового окна "Sub or function not defined" жёлтым выделена первая строчка кода "программы", делающейся в Visual Basic 6 (в общем коде обознаается 2-й), а синим выделено "ln" в шестой (7-я в general code).Привожу код программы: Private Sub Command1_Click() M: n = Val(InputBox("Введите значение N", "Ввод исходных данных")) x = (n + 12) / (n + 20) c = e ^ (-n) If ln(c) * lg(x) > 1.87 Then z = ctg(x / c) ElseIf n + 20 = 0 Then MsgBox ("Выражение не имеет решения: знаменатель не может равняться нулю!"): GoTo M ElseIf x * c + 0.8 = 0 Then MsgBox ("Подлогарифмическое выражение меньше нуля!"): GoTo M ElseIf c = 0 Then MsgBox ("Выражение не имеет решения: знаменатель не может равняться нулю!"): GoTo M Else: z = (2 ^ xc) - ln(xc + 0.8) End If z = MsgBox("z = " + Str(z), vbYes, "Результат расчёта") End Sub Private Sub Command2_Click() End End Sub Ума не приложу, что неправильно, подскажите, пожалуйста. ElseIf менял на If - всё равно ошибка.