Найти периметр и площадь треугольника

Sub Taskvklad()
MsgBox "This is the Taskvklad procedure running"
End Sub
Private Function  f(a0, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, z)
Const a0 = 1000
Const z = 0,02
a0=1000
a1=a0+a0* z
a2=a1+a1* z
a3=a2+a2* z
a4=a3+a3* z
a5=a4+a4* z
a6=a5+a5* z
a7=a6+a6* z
a8=a7+a7* z
a9=a8+a8* z
a10=a9+a9* z
a2=a2-a1
a3=a3-a2
a4=a4-a3
a5=a5-a4
a6=a6-a5
a7=a7-a6
a8=a8-a7
a9=a9-a8
a10=a10-a9
a11=a11-a10
a12=a12-a11
End Function

Private Type Coord 
x As Long 
y As Long 
End Type 
Private cor(2) As Coord 
Sub load() 'собираем координаты в переменную' 
cor(0).x = 0 
cor(0).y = 2 
cor(1).x = 10 
cor(1).y = 20 
cor(2).x = 0 
cor(2).y = 10 'вызываем функцию' 
MsgBox Plosh(cor) 
End Sub 
Function Plosh(a() As Coord) 
Dim i As Integer 
Dim i2 As Integer 
Dim dlin(2) As Long 
Dim p As Long 'полупериметр' 
For i = 0 To 2 
If i = 2 Then 
i2 = 0 
Else 
i2 = i + 1 
End If 
dlin(i) = Sqr((a(i).x - a(i2).x) ^ 2 + (a(i).y - a(i2).y) ^ 2) 
p = p + dlin(i) 
Next i 
p = p / 2 
Plosh = Sqr(p * (p - dlin(0)) * (p - dlin(1)) * (p - dlin(2))) 
End Function

Sub CountWordDocument()
MsgBox ActiveDocument.ComputeStatistics(OrStatisticOffer)
Const simv = ['!', '?', '.']
End Sub

Dim Mas(19) As Byte 'Объявление массива'
Dim myMas(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t) As Byte 'Объявление переменной'
End Sub
Function z(x As Byte, y As Byte) As Byte
x = (a * b * c * d * e * f * g * h * i * j * k * l * m * n * o * p * q * r * s * t)
y = (a + b + c + d + e + f + g + h + i + j + k + l + m + n + o + p + q + r + s + t)
z = x / y
End Function

сравните
mes = 8
MsgBox "Сумма вклада после " & mes & " месяцев составит "
и
MsgBox "Сумма вклада после " & mes & " месяцев составит "
и
MsgBox "Сумма вклада после" & mes & "месяцев составит "
и
MsgBox "Сумма вклада после" & mes & "месяцев составит "