vbline vb.net 2008

Private Sub showsummary()
        txtSummary.Text = "Student ID: " & lblstudID.Text
        txtSummary.Text = txtSummary.Text & vbNewLine & "First Name: " & txtfname.Text
        txtSummary.Text = txtSummary.Text & vbNewLine & "Middle Name: " & txtmname.Text
        txtSummary.Text = txtSummary.Text & vbNewLine & "Last Name: " & txtlname.Text
        txtSummary.Text = txtSummary.Text & vbNewLine & "Age: " & txtage.Text
        txtSummary.Text = txtSummary.Text & vbNewLine & "Religion: " & txtreligion.Text
        txtSummary.Text = txtSummary.Text & vbNewLine & "Gender: " & cmbgender.Text
        txtSummary.Text = txtSummary.Text & vbNewLine & "Civil Status: " & cmbstatus.Text
        txtSummary.Text = txtSummary.Text & vbNewLine & "Citizenship: " & txtcitizenship.Text
        txtSummary.Text = txtSummary.Text & vbNewLine & "Birth Date: " & dtbday.Text
        txtSummary.Text = txtSummary.Text & vbNewLine & "Blood Type: " & cmbblodtyp.Text
        txtSummary.Text = txtSummary.Text & vbNewLine & "Contact No.: " & txtstudcont.Text
        txtSummary.Text = txtSummary.Text & vbNewLine & "Place of Birth: " & txtPofB.Text
        txtSummary.Text = txtSummary.Text & vbNewLine & "Home Address: " & cmbblodtyp.Text
        txtSummary.Text = txtSummary.Text & vbNewLine & "City Address: " & txtstudcont.Text
        If rdbnew.Checked = True Then
            txtSummary.Text = txtSummary.Text & vbNewLine & "Student Status: " & rdbnew.Text
        ElseIf rdbtrans.Checked = True Then
            txtSummary.Text = txtSummary.Text & vbNewLine & "Student Status: " & rdbtrans.Text
            txtSummary.Text = txtSummary.Text & vbNewLine & "Previous Course: " & txtPcrs.Text
            txtSummary.Text = txtSummary.Text & vbNewLine & "School: " & txtschl.Text
            txtSummary.Text = txtSummary.Text & vbNewLine & "Address: " & txttadd.Text
        End If
        txtSummary.Text = txtSummary.Text & vbNewLine & "Name: " & txtGname.Text
        txtSummary.Text = txtSummary.Text & vbNewLine & "Contact No.: " & txtGcontact.Text
        txtSummary.Text = txtSummary.Text & vbNewLine & "Address: " & txtGadd.Text
        txtSummary.Text = txtSummary.Text & vbNewLine & "Name: " & txtGname.Text
        txtSummary.Text = txtSummary.Text & vbNewLine & "Contact No.: " & txtGcontact.Text
        txtSummary.Text = txtSummary.Text & vbNewLine & "Address: " & txtGadd.Text


    End Sub