รบกวนช่วยแก้ไขคำสั่งส่งค่า จาก checkbox ไป textbox หน่อยค่ะ คือส่งไปหลายรายการแต่มันโชว์รายการเดียว

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

        If CheckBox1.Checked = True Then

            If TextBox1.Text = "" Then
                MessageBox.Show("คุณไม่ได้ใส่จำนวนที่ซื้อค่ะ", "แจ้งข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Else
                Form4.TextBox1.Text = (" " & "แผ่นรองเม้าส์ Size M" & ControlChars.Tab & ControlChars.Tab & Val(TextBox1.Text) & ControlChars.Tab & ControlChars.Tab & 59 * Val(TextBox1.Text))
            End If

        End If

        If CheckBox2.Checked = True Then

            If TextBox2.Text = "" Then
                MessageBox.Show("คุณไม่ได้ใส่จำนวนที่ซื้อค่ะ", "แจ้งข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Else
                Form4.TextBox1.Text = (" " & "แผ่นรองเม้าส์ Size L" & ControlChars.Tab & ControlChars.Tab & ControlChars.Tab & Val(TextBox2.Text) & ControlChars.Tab & 69 * Val(TextBox2.Text))
            End If

        End If

        If CheckBox3.Checked = True Then

            If TextBox3.Text = "" Then
                MessageBox.Show("คุณไม่ได้ใส่จำนวนที่ซื้อค่ะ", "แจ้งข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Else
                Form4.TextBox1.Text = (" " & "หมอนรองข้อมือ Size M" & ControlChars.Tab & Val(TextBox3.Text) & ControlChars.Tab & 25 * Val(TextBox3.Text))
            End If
        End If

        If CheckBox4.Checked = True Then
            If TextBox4.Text = "" Then
                MessageBox.Show("คุณไม่ได้ใส่จำนวนที่ซื้อค่ะ", "แจ้งข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Else
                Form4.TextBox1.Text = (" " & "หมอนรองข้อมือสำหรับคีย์บอร์ด Size M" & Val(TextBox4.Text) & ControlChars.Tab & 69 * Val(TextBox4.Text))
            End If
        End If

        If CheckBox5.Checked = True Then
            If TextBox5.Text = "" Then
                MessageBox.Show("คุณไม่ได้ใส่จำนวนที่ซื้อค่ะ", "แจ้งข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Else
                Form4.TextBox1.Text = (" " & "หมอนโฟม, มีซิป, มีปลอก Size M" & ControlChars.Tab & ControlChars.Tab & ControlChars.Tab & Val(TextBox5.Text) & ControlChars.Tab & 140 * Val(TextBox5.Text))
            End If
        End If

        If CheckBox6.Checked = True Then
            If TextBox6.Text = "" Then
                MessageBox.Show("คุณไม่ได้ใส่จำนวนที่ซื้อค่ะ", "แจ้งข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Else
                Form4.TextBox1.Text = (" " & "หมอนโฟม, มีซิป Size M" & ControlChars.Tab & Val(TextBox6.Text) & ControlChars.Tab & 120 * Val(TextBox6.Text))
            End If
        End If

        If CheckBox7.Checked = True Then
            If TextBox7.Text = "" Then
                MessageBox.Show("คุณไม่ได้ใส่จำนวนที่ซื้อค่ะ", "แจ้งข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Else
                Form4.TextBox1.Text = (" " & "หมอนหลอดกาแฟ Size S" & ControlChars.Tab & ControlChars.Tab & Val(TextBox7.Text) & ControlChars.Tab & 85 * Val(TextBox7.Text))
            End If
        End If

        If CheckBox8.Checked = True Then
            If TextBox8.Text = "" Then
                MessageBox.Show("คุณไม่ได้ใส่จำนวนที่ซื้อค่ะ", "แจ้งข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Else
                Form4.TextBox1.Text = (" " & "หมอนโฟม Size M " & ControlChars.Tab & ControlChars.Tab & ControlChars.Tab & Val(TextBox8.Text) & ControlChars.Tab & 115 * Val(TextBox8.Text))
            End If
        End If

        If CheckBox9.Checked = True Then
            If TextBox9.Text = "" Then
                MessageBox.Show("คุณไม่ได้ใส่จำนวนที่ซื้อค่ะ", "แจ้งข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Else
                Form4.TextBox1.Text = (" " & "หมอนโฟม Size S" & ControlChars.Tab & ControlChars.Tab & ControlChars.Tab & ControlChars.Tab & Val(TextBox9.Text) & ControlChars.Tab & 115 * Val(TextBox9.Text))
            End If
        End If

        Me.Hide()
        Form4.Show()

    End Sub