ช่วยดูโค้ดนี้ให้หน่อยครับ

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

        Dim result As Double

        Dim BMI As Double

        High = Val(MaskedTextBox2.Text) / 100

        result = High * High

        BMI = Val(MaskedTextBox1.Text) / result



        ListBox2.Text = Format(BMI, "#0.00")

        If ListBox3.Text <= 18 Then

            ListBox2.Text = "ผอมเกินไป"

            ListBox1.Text = "ต้องเพิ่มน้ำหนัก และรับประทานอาหารที่มีประโยชน์"



        ElseIf ListBox3.Text > 18.5 And ListBox3.Text < 25 Then

            ListBox2.Text = "น้ำหนักปกติ"

            ListBox1.Text = "ต้องเริ่มควบคุมน้ำหนัก ควบคุมอาหาร และออกกำลังกาย"

            ListBox3.Text = "น้ำหนักปกติ"

            ListBox1.Text = "ต้องเริ่มควบคุมน้ำหนัก ควบคุมอาหาร และออกกำลังกาย"

        ElseIf ListBox3.Text >= 30 And ListBox3.Text < 40 Then

            ListBox2.Text = "อ้วน"

            ListBox1.Text = "ต้องลดน้ำหนัก ออกกำลังกายอย่างจริงจัง และเข้มงวด"



        ElseIf ListBox3.Text >= 40 Then

            ListBox2.Text = "อ้วนมาก"

            ListBox1.Text = "ต้องลดน้ำหนัก ออกกำลังกายอย่างจริงจัง และเข้มงวด"



        Else



        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MessageBox.Show("ค่าดัชนีมวลกายที่แพทย์แนะนำ อยู่ที่ 18.00 - 19.00" & ControlChars.CrLf & " น้ำหนักที่เหมาะสมคือ 39.96 - 42.18 กิโลกรัม", "ค่าดัชนีมวลกาย(BMI)", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        MaskedTextBox1.Text = ""

        MaskedTextBox2.Text = ""

        ListBox3.Text = ""

        ListBox2.Text = ""

        ListBox1.Text = ""