Непростой калькулятор

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Strra1 As New Strra With {
            .kzap1 = CDbl(TextBox2.Text),
            .iw1 = CDbl(TextBox3.Text)
        }
        TextBox1.Text = Strra1.S1
    End Sub
End Class

Public Class Strra
    Private kzap As Double
    Private iw As Double
    Public Property kzap1 As Double
        Get
            Return kzap = kzap1
        End Get
        Set(value As Double)
            kzap = value
        End Set
    End Property
    Public Property iw1 As Double
        Get
            Return iw = iw1
        End Get
        Set(value As Double)
            iw = value
        End Set
    End Property
    Public Function S1() As Double
        Return kzap / iw
    End Function
End Class

.iw1 = CDbl(Replace(TextBox15.Text, ".", ","))

Public Class Form1 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
 Dim Strra1 As New Strra With { 
 .kzap1 = CDbl(Replace(TextBox6.Text, ".", ",")), 
 .SctSok1 = CDbl(Replace(TextBox20.Text, ".", ","))} 
  Dim Class1 As New Class1 With { 
 .pd1 = CDbl(Replace(TextBox8.Text, ".", ",")), 
 .Ud1 = CDbl(Replace(TextBox3.Text, ".", ","))} 
 TextBox11.Text = Class1.S1 
 Dim Class2 As New Class2 With { 
 .U22l1 = CDbl(Replace(TextBox21.Text, ".", ",")), 
 .e1 = CDbl(Replace(TextBox17.Text, ".", ","))} 
 TextBox11.Text = Class2.S1 
 End Sub

Public Class Class1 
 Private pd As Double 
 Private Ud As Double 
 Public Property pd1 As Double 
 Get 
 Return pd = pd1 
 End Get 
 Set(value As Double) 
 pd = value 
 End Set 
 End Property 
 Public Property Ud1 As Double 
 Get 
 Return Ud = Ud1 
 End Get 
 Set(value As Double) 
 Ud = value 
 End Set 
 End Property 
 Public Function S1() As Double 
 Return pd / Ud 
 End Function 
End Class
 
Public Class Class2 
 Private U22l As Double 
 Private e As Double 
 Public Property U22l1 As Double 
 Get 
 Return U22l = U22l1 
 End Get 
 Set(value As Double) 
 U22l = value 
 End Set 
 End Property 
 Public Property e1 As Double 
 Get 
 Return e = e1 
 End Get 
 Set(value As Double) 
 e = value 
 End Set 
 End Property 
 Public Function S1() As Double 
 Return U22l / e 
 End Function 
End Class

Private Ud As Double 
 Public Property pd1() As Double 
 Get 
 Return pd 
 End Get 
 Set(value As Double) 
 pd = value 
 End Set 
 End Property 
 Public Property Ud1() As Double 
 Get 
 Return Ud 
End Get 
 Set(ByVal value As Double) 
 Ud = value 
 End Set 
 End Property 
 Public Function S1() As Double 
 Return pd / Ud 
 End Function 
End Class
 
Public Class Class2 
 Private U22l As Double 
 Private e2 As Double 
 Public Property U22l1() As Double 
 Get 
 Return U22l 
 End Get 
 Set(ByVal value As Double) 
 U22l = value 
 End Set 
 End Property 
 Public Property e1() As Double 
 Get 
 Return e2
 End Get 
 Set(ByVal value As Double) 
 e2 = value 
 End Set 
 End Property 
 Public Function S1() As Double 
 Return U22l / e2 
 End Function 
End Class