Private Sub btnNumbers_Click(sender As Object, e As EventArgs) Handles btn9.Click, btn8.Click, btn6.Click, btn5.Click, btn4.Click, btn3.Click, btn2.Click, btn1.Click, btn0.Click
Dim btnNum As Button = CType(sender, Button)
input = CDbl(btnNum.Text)
If txtInput.Text =...