Private Python2VBText As New TextBox Public Sub listONothingLine(items As Object) for item= 0 To items.Length - 1 Python2VBText.Text = Python2VBText.Text + items(item) + vbNewLine Python2VBText.MultiLine = True Python2VBText.Width = 200 Python2VBText.Height = 100 Form1.Controls.Add(Python2VBText) Next Python2VBText.Text = Python2VBText.Text + vbNewLine End Sub Public Sub Routine2 listONothingLine({"apple", "banana", "pear"}) Python2VBText.Text = Python2VBText.Text + "This is probably better!" + vbNewLine End Sub