Visual Basic para Aplicaciones - AREA DE UN POLIGIONO POR EL METODO DE COORDENADAS

Necesito crear un programa en VISUAL BASIC FOR APPLICATIONS EXCELL , que me calcule el area de un poligiono por le metodo de coordenadas... e que tengo que usar arrays pero nose como empezarlo...

si dieras más info quizá pueda ayudarte...

Saludos desde Baires, JuanC

Necesito crear un programa que tenga como input el número de vertices del poligono y otro input que sea cada coordenada de los vertices del poligono. Con esa infomacion debe salir un msgbox que diga el area del poligono.

Option Explicit
Option Base 0

Type Point
x As Double
y As Double
End Type

Sub test()
Dim vert(6) As Point
Dim A#
vert(0).x = 0
vert(0).y = 2

vert(1).x = 1
vert(1).y = 1

vert(2).x = 1
vert(2).y = 0

vert(3).x = 0
vert(3).y = 0

vert(4).x = vert(0).x
vert(4).y = vert(0).y

vert(5).x = vert(1).x
vert(5).y = vert(1).y

A = area2D_Polygon(4, vert)

MsgBox A
End Sub

Function area2D_Polygon(n As Integer, V() As Point) As Double
Dim area As Double
area = 0#
Dim i%, j%, k%
j = 2: k = 0
For i = 1 To n
area = area + V(i).x * (V(j).y - V(k).y)
Next
area2D_Polygon = Abs(area) / 2#
End Function

Saludos desde Baires, JuanC