Private x As Integer Private y As Integer ' Two numeric inputs Public Sub Routine2 x = InputBox("Enter a number: ") y = InputBox("Enter a second number: ") 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