Как найти площадь пятиугольника, заданного координатами своих вершин - Visual Basic .NET

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

Помогите решить лабораторную работу)))Никак не выходит(( Вычислить и вывести площадь пятиугольника, заданного прямоугольными координатами своих вершин: A1(3;2), A2(9;6), A3(14;2), A4(10;-3), A5(7;-2) Использовать формулу площади треугольника: Назначение процедуры: Вычисление площади треугольника по заданным координатам его вершин: (x1;y1), (x2;y2), (x3;y3)

Решение задачи: «Как найти площадь пятиугольника, заданного координатами своих вершин»

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

                            Option Strict On
Option Explicit On
Imports System.Math
Public Class Form1
    'функция ввода значения 
    Function vvod(ByVal t As TextBox) As Double
        Return Val(t.Text)
    End Function
    'функция вывода результата в textbox
    Sub vivod(ByVal S As Double, ByVal t As TextBox)
        t.Text = CStr(S)
    End Sub
    'функция вычисления значение биссектрисы L(a,b,c)
    Public Function Labc(ByVal x1 As Double, ByVal y1 As Double, ByVal x2 As Double, ByVal y2 As Double, ByVal x3 As Double, ByVal y3 As Double) As Double
        Return CDbl(1 / 2 * (Abs(x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1)))
    End Function
 
    Sub PS(ByVal x1 As Double, ByVal y1 As Double, ByVal x2 As Double, ByVal y2 As Double, ByVal x3 As Double, ByVal y3 As Double)
        Dim x1, x2, x3, y1, y2, y3, x4, y4, x5, y5, As Double
        Dim s, s1, s2, s3 As Double
        Dim z1, z2, z3, z4 As Double
       
        x1 = vvod(TextBox1)
        y1 = vvod(TextBox2)
        x2 = vvod(TextBox3)
        y2 = vvod(TextBox4)
        x3 = vvod(TextBox5)
        y3 = vvod(TextBox6)
        s1 = Labc()
        s2 = Labc()
        s3 = Labc()
 
 
 
 
        s = s1 + s2 + s3
 
 
 
 
        vivod(s, TextBox11)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class
                        