e.g Perhaps you enter weekly Salary and its Average.
Dim Array(5) As Decimal
Dim WeeklySal As Decimal
Dim Count,Add As Integer
Dim TotSalary As Decimal
For Count = 0 To (Array.length-1)
Array(Count) = InputBox("Enter Your Weekly Salary","Programmer's Heaven")
Next
For Add = 0 To (Array.Length-1)
TotSalary += Arraya(Add)
Next
label1.text = "Weekly Salary Average Is: R" & CStr(Cdec(TotSalary/Array.Length-1))