Private Python2VBText As New TextBox
Private myName As Integer
Private myAge As Integer
'  This program says hello and asks for my name.
Public Sub Routine2
    Python2VBText.Text = Python2VBText.Text +"Hello, world!".ToString + vbNewLine
    Python2VBText.MultiLine = True
    Python2VBText.Width = 200
    Python2VBText.Height = 100
    Form1.Controls.Add(Python2VBText)
    Python2VBText.Text = Python2VBText.Text +"What is your name?" ' ask for their name.ToString + vbNewLine
    myName = InputBox("")
    Python2VBText.Text = Python2VBText.Text +"It is good to meet you, ".ToString + myName.ToString + vbNewLine
    Python2VBText.Text = Python2VBText.Text +"The length of your name is:".ToString + vbNewLine
    Python2VBText.Text = Python2VBText.Text +len(myName).ToString + vbNewLine
    Python2VBText.Text = Python2VBText.Text +"What is your age?" ' ask for their age.ToString + vbNewLine
    myAge = InputBox("")
    Python2VBText.Text = Python2VBText.Text +"You will be ".ToString + str(int(myAge).ToString + 1).ToString + " in a year.".ToString + vbNewLine
End Sub