Вычисление функции в бейсике

[Absent]

Нужна программа в бейсике в Exel

F=

_
| exp(sin(x))+(1/3)*a если a<=0 и x>0
| Ln(x+a) если 0.5<a<=1 x>0
| sin(x) +(1/3)*a если a>=1 x>0
|_ x^2 + ABS(x)^(1/2)+a если x<=0

В том году изучал делфи, щас прохожу бейсик, что-то плохо понимаю, помогите. Буду рад еcли скините ссылку на какиенибудь материалы по бейсику.
Вот что получилось у меня:

Sub форм()
Sheets("Лист1").Select
A = Cells(2, 2)
x = Cells(3, 2)


If A <= 0.5 And x > 0 Then
F = Exp(Sin(x)) + (1 / 3) * A
    Else
    If (A <= 1 And A > 0.5) And x > 0 Then
    F = Ln(x + A)
       Else
       If A >= 1 And x > 0 Then
       F = Sin(x) + (1 / 3) * A
          Else
          If x <= 0 Then
          F = x ^ 2 + Abs(x) ^ (1 / 2) + A
          End If
       End If
    End If
End If
Cells(6, 2) = F
End Sub

[rUs_LAN]

сам VBA почав вчити можу сказати тільки що в VBA немає стандартної функції ln, через то не працює.

[Absent]

Сообщение от rUs_LAN

сам VBA почав вчити можу сказати тільки що в VBA немає стандартної функції ln, через то не працює.

точно заменил Ln на sin заработала,а Как тогда LN записывается в VBA?

[rUs_LAN]

Сообщение от Absent

точно заменил Ln на sin заработала,а Как тогда LN записывается в VBA?

Log(N) Возвращает натуральный логарифм N
http://on-line-teaching.com/vba/ хороший сайт