Не пойму в чем ошибка(( - VB

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

Помогите с заданием плиз, вот собственно задание: я написал код, но он не хочет работать, при чем ошибка появляется после введения корней...

Private Sub Command1_Click()
Dim A As Single, B As Single, C As Single
Dim J As Single, D As Single, K As Single
Dim P As Single, S As Single
 
A = Val(InputBox("вводим A"))
B = Val(InputBox("вводим B"))
C = Val(InputBox("вводим C"))
 
P = (A + B + C) / 2
J = 2 * Sqr(P - A)(P - B)(P - C)
S = J / A
D = J / B
K = J / C

Label1.Caption = S
Label2.Caption = D
Label3.Caption = K
 
End Sub
 
Private Sub Label1_Click()
 
End Sub

как бы я не менял, например: "J = 2 * Sqr((P - A)(P - B)(P - C))" или sqr на sqrt и тд и тп не помогает(... вот ошибка: заранее благодарен =)

Решение задачи: «Не пойму в чем ошибка((»

textual
                            Листинг программы 
                        
                            J = 2 * Sqr(P * (P - A) * (P - B) * (P - C))