programa para crear una planilla en visual basic

Public Class Cplanilla

    Public nombre, departamento, cargo As String

    Public sueldo As Decimal

    Public afp, isss, renta, sin_descuentos As Decimal

    Function descuento_renta() As Double

        renta = sueldo * 0.1

        Return renta

    End Function

    Function descuento_isss() As Double

        isss = sueldo * 0.03

        Return isss

    End Function

    Function descuento_afp() As Double

        afp = sueldo * 0.065

        Return afp

    End Function

    Function sueldo_liquido() As Double

        sin_descuentos = sueldo - afp - isss - renta

        Return sin_descuentos

    End Function

End Class

Public Class Form1

    Dim calculando As New Cplanilla

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        calculando.nombre = Me.nombre.Text

        calculando.cargo = Me.cargo.Text

        calculando.departamento = Me.departamento.Text

        calculando.sueldo = Val(Me.sueldo.Text)

        Me.Label11.Text = calculando.nombre

        Me.Label12.Text = calculando.cargo

        Me.Label13.Text = calculando.departamento

        Me.Label14.Text = calculando.descuento_afp

        Me.Label15.Text = calculando.descuento_renta

        Me.Label16.Text = calculando.descuento_isss

        Me.Height = 370

        Me.Label18.Text = calculando.sueldo_liquido

    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cargo.TextChanged

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.Height = 171

        Me.nombre.Text = ""

        Me.departamento.Text = ""

        Me.sueldo.Text = ""

        Me.cargo.Text = ""

    End Sub

End Class