Private x As Integer
Private y As Integer

' Conversion of strings to int before addition

Public Sub Routine2
Dim xString As String
xString = InputBox("Enter a number: ")
x = int(xString)
Dim yString As String
yString = InputBox("Enter a second number: ")
y = int(yString)
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