Calculator

Dim Operation As Integer



Private Sub CmdClear_Click()
    TxtAnswer.Text = ""
End Sub

Private Sub CmdDot_Click()
    TxtAnswer.Text = TxtAnswer.Text + "."


End Sub

Private Sub CmdNum_Click(Index As Integer)

    TxtAnswer.Text = TxtAnswer.Text & Index

End Sub