' Display a sum problems with a function.
' Handle keyboard input separately.
'

Public Sub sumProblem(x As Object, y As Object)
    Dim Python2VBText As New TextBox
    Python2VBText.Text = "The sum of " + (x).toString + " and " + (y).toString + " is " + (x+y).toString + "." + vbNewLine
    Python2VBText.MultiLine = True
    Python2VBText.Width = 200
    Python2VBText.Height = 100
    Form1.Controls.Add(Python2VBText)

End Sub

Public Sub main()
    sumProblem(2, 3)
    sumProblem(1234567890123, 535790269358)
    Dim b As Integer
    Dim a As Integer
    a = InputBox("Enter two comma separated numbers: ")
    b = InputBox("Enter two comma separated numbers: ")
    sumProblem(a, b)

End Sub

'main()