Private Function Add(lhs As Integer, rhs As Integer) As Integer
    Return lhs + rhs
End Function

 
Dim var1 as double
dim var2 as double
dim ans as double
 
var1 = Inputbox("Enter the 1st number")
var2 = Inputbox("Enter the 2nd number")
 
ans =  var1 * var2
 
msgbox "The answer is " & ans & " "
 

Imports System

Public Class MainForm
    Private _lhs As Decimal
    Private _rhs As Decimal
    Private _op As String

    Private Sub Operator_Click(ByVal sender As Object, ByVal e As EventArgs) _
        Handles btnAdd.Click, btnSub.Click, btnMul.Click, btnDiv.Click

        ' Set up the first half of our calculation
        _lhs = CType(uOperand.Text, Decimal)
        _op = DirectCast(sender, Button).Text

        ' Reset the input box for the next operand
        uOperand.ResetText()
        uOperand.Focus()
    End Sub

    Private Sub Result_Click(ByVal sender As Object, ByVal e As EventArgs) _
        Handles btnDone.Click

        ' Yay! Get the second half
        _rhs = CType(uOperand.Text, Decimal)

        ' Calculate the result

        uOperand.Text = CStr(result)
    End Sub
End Class