[VB.NET] Controllo se contenuto textbox è numerico (era: aiutino (if then else))

[Newmicrocip]

Allora il problema me lo fà sulla textbox2 penso di aver scritto il codice iniziale un po' maluccio ...vi prego potreste darmi una mano..in fondo non chiedo molto!!!!

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

If IsNumeric(TextBox1.Text) = False Then
If IsNumeric(TextBox2.Text) = False Then 
End If             
MsgBox("Inserire valori numerici ", vbCritical, "ERRORE")             
TextBox1.Text = ""             
TextBox2.Text = "" 

        Else
            TextBox3.Text = CInt(TextBox1.Text) * 0.78
            TextBox5.Text = CInt(TextBox1.Text) * 0.781
            TextBox6.Text = CInt(TextBox1.Text) * 0.782
            TextBox7.Text = CInt(TextBox1.Text) * 0.783
            TextBox11.Text = CInt(TextBox1.Text) * 0.784
            TextBox12.Text = CInt(TextBox1.Text) * 0.785
            TextBox13.Text = CInt(TextBox1.Text) * 0.786
            TextBox14.Text = CInt(TextBox1.Text) * 0.787
            TextBox15.Text = CInt(TextBox1.Text) * 0.788
            TextBox16.Text = CInt(TextBox1.Text) * 0.789
            TextBox17.Text = CInt(TextBox1.Text) * 0.79
            TextBox18.Text = CInt(TextBox1.Text) * 0.791
            TextBox19.Text = CInt(TextBox1.Text) * 0.792
            TextBox20.Text = CInt(TextBox1.Text) * 0.793
            TextBox21.Text = CInt(TextBox1.Text) * 0.794
            TextBox22.Text = CInt(TextBox1.Text) * 0.795
            TextBox23.Text = CInt(TextBox1.Text) * 0.796
            TextBox24.Text = CInt(TextBox1.Text) * 0.797

            TextBox4.Text = CInt(TextBox3.Text) + TextBox2.Text
            TextBox8.Text = CInt(TextBox5.Text) + TextBox2.Text
            TextBox9.Text = CInt(TextBox6.Text) + TextBox2.Text
            TextBox10.Text = CInt(TextBox7.Text) + TextBox2.Text
            TextBox25.Text = CInt(TextBox11.Text) + TextBox2.Text
            TextBox26.Text = CInt(TextBox12.Text) + TextBox2.Text
            TextBox27.Text = CInt(TextBox13.Text) + TextBox2.Text
            TextBox28.Text = CInt(TextBox14.Text) + TextBox2.Text
            TextBox29.Text = CInt(TextBox15.Text) + TextBox2.Text
            TextBox30.Text = CInt(TextBox16.Text) + TextBox2.Text
            TextBox31.Text = CInt(TextBox17.Text) + TextBox2.Text
            TextBox32.Text = CInt(TextBox18.Text) + TextBox2.Text
            TextBox33.Text = CInt(TextBox19.Text) + TextBox2.Text
            TextBox34.Text = CInt(TextBox20.Text) + TextBox2.Text
            TextBox35.Text = CInt(TextBox21.Text) + TextBox2.Text
            TextBox36.Text = CInt(TextBox22.Text) + TextBox2.Text
            TextBox37.Text = CInt(TextBox23.Text) + TextBox2.Text
            TextBox38.Text = CInt(TextBox24.Text) + TextBox2.Text


        End If

    End Sub