Декартовы координаты. Нахождение медианы - VB

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

Доброго вечера, дорогие товарищи - программисты) Ситуация следующая... Имеется задача: В трехмерном пространстве заданы декартовы координаты вершин треугольника. Написать программу для вычисления его медиан Так вот написал код, но второй день уже не в понятках, почему тот не желает работать.

Private Sub cmdCalculate_Click() 'процедура вызова клика

    Dim txtParamA As Integer 'поле a
    Dim txtParamB As Integer 'поле b
    Dim txtParamC As Integer 'поле c

    Dim lblD As Single 'вид данных, медиана
    Dim lblX1 As Single 'вид данных, периметр
    Dim lblX2 As Single 'вид данных, площадь

paramA = txtParamA.Text 'Приравненивание к текстовому значению
paramB = txtParamB.Text 'Приравненивание к текстовому значению
paramC = txtParamC.Text 'Приравненивание к текстовому значению

lblD.Text = Sqr((a ^ 2 + b ^ 2 - c ^ 2)) / 2   'По заданию практической работы
lblX1.Text = (a + b + c) / 2   'Для дополнения существующего функционала программы. Периметр
lblX2.Text = Sqr(p * (p - a) * (p - b) * (p - c)) 'Для дополнения существующего функционала программы. Площадь

End Sub 'конец

Подскажите пожалуйста чего не хватает. И собственно еще один вопрос. Как вывести help справку в самой программе. Каков код отвечает за это? Заранее благодарю!

Решение задачи: «Декартовы координаты. Нахождение медианы»

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

                            Option Explicit
 
Private Sub cmdCalculate_Click() 'процедура вызова клика
 
Dim A As Integer, B As Integer, C As Integer
Dim P As Single 'периметр
 
A = Val(txtParamA.Text) 'Приравненивание к текстовому значению
B = Val(txtParamB.Text)  'Приравненивание к текстовому значению
C = Val(txtParamC.Text) 'Приравненивание к текстовому значению
P = (A + B + C) / 2   'Для дополнения существующего функционала программы. Периметр
 
lblD.Caption = (Sqr(A ^ 2 + B ^ 2 - C ^ 2)) / 2   'По заданию практической работы
lblX1.Caption = P
lblX2.Caption = Sqr(P * (P - A) * (P - B) * (P - C)) 'Для дополнения существующего функционала программы. Площадь
 
    
End Sub 'конец
                        