Public Class Form1
    Dim FirstNumber As Double
    Dim Symbol As String
    Dim SecondNumber As Double
    Dim Answer As Double
    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SecondNumberL.Click

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    End Sub

    Private Sub CalculationsButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalculationsButton.Click
        Try
            FirstNumber = InputBox("What is the first number")
            FirstNumberTB.Text = FirstNumber
            On Error Resume Next
        Catch
            MsgBox("An error has occured")
        End Try




        Do
            Symbol = InputBox("Please add + OR - OR / OR *")
        Loop Until Symbol = "+" Or Symbol = "-" Or Symbol = "/" Or Symbol = "*"


        SecondNumber = InputBox("What is the second number")
        SecondNumberTB.Text = SecondNumber

        If Symbol = "+" Then
            Answer = FirstNumber + SecondNumber
        ElseIf Symbol = "-" Then
            Answer = FirstNumber - SecondNumber
        ElseIf Symbol = "*" Then
            Answer = FirstNumber * SecondNumber
        ElseIf Symbol = "/" Then
            Answer = FirstNumber / SecondNumber
        End If
        AnswerTB.Text = Answer
    End Sub
End Class