Visual Basic Maaş uygulaması

MaasApp.vb

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim a As String
        Dim b As DialogResult
        Dim c, d, s As Integer
bas:
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox1.Text = InputBox("Ad ve soyad giriniz:", "Bilgi Girişi", "")
        TextBox1.Show()
        Label1.Show()
        c = InputBox("Bürüt Maaş yazınız", "Net Maaş Hesaplama", "")
        d = c * 0.42
        s = c - d
        TextBox2.Text = s & "TL"
        TextBox2.Show()
        Label2.Show()
        a = (TextBox1.Text) & " " & (TextBox2.Text)
        b = MessageBox.Show("2014 hesabına göre" + a, "", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
        Select Case b
            Case DialogResult.Yes
                TextBox3.Text = "Maaşınız doğru hesaplanmış."
                TextBox3.Show()
                Label3.Show()
            Case DialogResult.No
                TextBox3.Text = "Maaşınız yanlış hesaplanmış."
                TextBox3.Show()
                Label3.Show()
                If DialogResult.No = b Then
                    MessageBox.Show("Yeniden bürüt maaş giriniz.")
                    GoTo bas
                Else
                    Application.Exit()
                End If
        End Select

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox1.Hide()
        TextBox2.Hide()
        TextBox3.Hide()
        Label1.Hide()
        Label2.Hide()
        Label3.Hide()
    End Sub
End Class