If RadioButton1.Checked = True Then

            TextBox2.Text = TextBox1.Text & "超人" & vbCr
        ElseIf RadioButton2.Checked = True Then
            TextBox2.Text = TextBox1.Text & "先生" & vbCr
        Else
            TextBox2.Text = TextBox1.Text & "小姐" & vbCr
        End If

        Dim Temp As String = ""
        Dim intIndex As Integer
        Dim iNum As Integer = 0
        For intIndex = 0 To CheckBoxList1.Items.Count - 1
            If CheckBoxList1.Items(intIndex).Selected Then
                iNum = iNum + 1
            End If
        Next


        Dim iCount As Integer = 1
        For intIndex = 0 To CheckBoxList1.Items.Count - 1
            If CheckBoxList1.Items(intIndex).Selected Then
                If iCount < iNum Then
                    Temp &= CheckBoxList1.Items(intIndex).Text.ToString & ","
                Else
                    Temp &= CheckBoxList1.Items(intIndex).Text.ToString & vbCr
                End If

                iCount = iCount + 1
            End If
        Next

        'Response.Write(iNum)
        If iNum > 0 Then
            TextBox2.Text &= "專長是" & Temp
        Else
            TextBox2.Text &= "老闆"
        End If