vb.net2015_slip18

Public Class Form1

    Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
        Dim nm As String
        Dim post As String
        Dim qual As String = ""
        nm = TextBox1.Text
        If opManager.Checked = True Then
            post = "Manager"
        ElseIf opEng.Checked = True Then
            post = "Engineer"
        ElseIf opAcc.Checked = True Then
            post = "Accountant"
        Else
            post = "Clerk"
        End If

        If chkBE.Checked Then
            qual = qual & "BE, "
        End If
        If chkMBA.Checked Then
            qual = qual & "MBA, "
        End If
        If chkCA.Checked Then
            qual = qual & "CA, "
        End If
        If chkGraduate.Checked Then
            qual = qual & "Graduate"

        End If
        MessageBox.Show("Name: " & nm & " Post: " & post & " Qualification: " & qual, "Details", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub
End Class