botonesNumericosCalculadora

Public Sub Button1_Click()
    TextBoxMuestra.Text &= "1"
End

Public Sub Button2_Click()
  TextBoxMuestra.Text &= "2"
End

Public Sub Button3_Click()
  TextBoxMuestra.Text &= "3"
End

Public Sub Button4_Click()
  TextBoxMuestra.Text &= "4"
End

Public Sub Button5_Click()
  TextBoxMuestra.Text &= "5"
End

Public Sub Button6_Click()
  TextBoxMuestra.Text &= "6"
End

Public Sub Button7_Click()
 TextBoxMuestra.Text &= "7"
End

Public Sub Button8_Click()
  TextBoxMuestra.Text &= "8"
End

Public Sub Button9_Click()
  TextBoxMuestra.Text &= "9"
End

Public Sub Button0_Click()
  TextBoxMuestra.Text &= "0"
End

Public Sub ButtonPunto_Click()
  TextBoxMuestra.Text &= "."
End