Нахождение площади кольца образованного двумя окружностями с радиусами R1 и R2

'Первая задача
 
Dim R As Long
Dim h As Long
 
R = Val(InputBox("Радиус"))
h = Val(InputBox("Высота"))
 
Dim V As Long
 
V = 3.14 * R ^ 2 * h
 
MsgBox (V)
 
'вторая задача
 
Dim R1 As Long
Dim R2 As Long
 
Dim S As Long
 
S = 0
R1 = Val(InputBox("Радиус первой окружности"))
R2 = Val(InputBox("Радиус второй окружности"))
 
If R1 <> R2 Then S = 3.14 * R1 ^ 2 - 3.14 * R2 ^ 2
 
If S < 0 Then S = 3.14 * R2 ^ 2 - 3.14 * R1 ^ 2
 
MsgBox (S)
 
'Третья задача
 
Dim a(2) As Long
Dim i As Integer
 
For i = 0 To 2
 
a(i) = Val(InputBox("Число " & i + 1))
 
Next
 
Dim Max As Long
Dim Min As Long
Dim Cen As Long
 
Max = a(0)
Min = a(0)
Cen = a(0)
 
For i = 1 To 2
If a(i) > Max Then Max = a(i)
If a(i) < Min Then Min = a(i)
Next
 
For i = 0 To 2
 
If a(i) <> Max And a(i) <> Min Then Cen = a(i)
 
Next
 
MsgBox (Max)
MsgBox (Min)
MsgBox (Cen)

sub такая_то
код
end sub