cosa c'è di sbagliato in questo codice:

codice:
Dim divisione As Double
    Private Sub TextBox1_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        divisione = TextBox2.Text = Val(TextBox3.Text) / Val(100)
        TextBox2.Text = divisione * TextBox1.Text
    End Sub