Visual Basic.NET - Visual Basic 2008 - como podría activar un botón a través de 3 textbox

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    Button2.Enabled = True

    Dim numero1 As Single

    Dim numero2 As Single

    Dim numero3 As Single

    numero1 = Val(TextBox1.Text)

    numero2 = Val(TextBox2.Text)

    numero3 = Val(TextBox3.Text)

    If (numero3 >= 0 And (numero2 >= 0 And numero1 >= 0)) Then

        Button1.Enabled = True

    Else

        Button1.Enabled = False

    End If

End Sub

Public Class Form3

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

        Form1.Visible = True

        Me.Visible = False

    End Sub

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

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        Button1.Enabled = False

        Button2.Enabled = False

    End Sub

    Private Sub GestionDelBoton()

        Dim Test As Single

        Button2.Enabled = True

        Try

            Test = CType(TextBox1.Text, Single) ' Da error si no es posible hacer uèn Single con el conetinido del TextBox1.

            Test = CType(TextBox2.Text, Single) ' Da error si no es posible hacer uèn Single con el conetinido del TextBox2.

            Test = CType(TextBox3.Text, Single) ' Da error si no es posible hacer uèn Single con el conetinido del TextBox3.

        Catch    ' Si existe un error, Button2 es "disabled"

            Button2.Enabled = False

        End Try

    End Sub

    ' Trabajo con los eventos Leave y KeyDown para no reaccionar con cada caracter

    ' El evento Leave para reaccionar a un Click en el fromulario

    ' El evento KeyDown para detectar un <Enter>

    ' No es necesario de escribir 3 veces cada Sub, es suficiente de escribir los Handles, miras los codigos siguiente :

    Private Sub MisTextBox_Leave(sender As Object, e As EventArgs) Handles TextBox1.Leave, TextBox2.Leave, TextBox3.Leave

        GestionDelBoton()

    End Sub

    Private Sub MisTextBox_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown, TextBox2.KeyDown, TextBox3.KeyDown

        If e.KeyCode = Keys.Enter Then

            GestionDelBoton()

        End If

    End Sub

End Class