[...vamp]

Ребят, сам я полный чайник, только учусь выклдываю задание и свой код, подкорректируйте пожалуйста ошибки.

Option Strict On
Option Explicit On
Imports System.Math
Public Class Form1
    ' Фунция ввода диаметра в TextBox
    Function vvod(ByVal T As TextBox) As Single
        Return CSng(Val(T.Text))
    End Function
    ' Процедура вывода площади в TextBox
    Sub Vivod(ByVal Z As Single, ByVal T As TextBox)
        T.Text = CStr(Z)
    End Sub
    'Функция вычисления площади круга 1
    Public Function ПлощадьКруга1(ByVal d1 As Single) As Single
        Return CSng(PI * ((d1 ^ 2) / 4))
    End Function
    'Функция вычисления площади круга 2
    Public Function ПлощадьКруга2(ByVal d2 As Single) As Single
        Return CSng(PI * ((d2 ^ 2) / 4))
    End Function
    'Функция вычисления площади круга 3
    Public Function ПлощадьКруга3(ByVal d3 As Single) As Single
        Return CSng(PI * ((d3 ^ 2) / 4))
    End Function
    ' Процедура выичления площади.
    Sub s(ByVal d1 As Single, ByVal d2 As Single, ByVal d3 As Single)
        Dim S1, S2, S3 As Single
        S1 = ПлощадьКруга1(d1)
        S2 = ПлощадьКруга2(d2)
        S3 = ПлощадьКруга3(d3)
    End Sub
    Private Sub Button1_Click()
        Dim d1 As Single, d2 As Single, d3 As Single
        Dim S1 As Single, S2 As Single, S3 As Single
        d1 = vvod(TextBox1) : d2 = vvod(TextBox2) : d3 = vvod(TextBox3)
        s(d1, d2, d3, S1, S2, S3)
        Vivod(S1, TextBox4) : Vivod(S2, TextBox5) : Vivod(S3, TextBox6)
    End Sub
End Class