' User input supplies function parameter

Public Sub happyBirthday(person As Object)
    Dim Python2VBText As New TextBox
    Python2VBText.Text = "Happy Birthday to you!" + vbNewLine
    Python2VBText.MultiLine = True
    Python2VBText.Width = 200
    Python2VBText.Height = 100
    Form1.Controls.Add(Python2VBText)
    Python2VBText.Text = Python2VBText.Text + "Happy Birthday to you!" + vbNewLine
    Python2VBText.Text = Python2VBText.Text + "Happy Birthday, dear " + person + "." + vbNewLine
    Python2VBText.Text = Python2VBText.Text + "Happy Birthday to you!" + vbNewLine

End Sub

Public Sub main()
    Dim userName As String
    userName = InputBox("Enter the Birthday person's name: ")
    happyBirthday(userName)

End Sub

'main()