Pass an array collected from textboxes to a multicolumn listbox as an next entry

I have been trying many variation but have only succeeded in populating the listbox vertically instead of as a new line entry to a listbox. Help appreciated, not very well covered in google

Sub CommandButton1_Click()
Dim arr1 As Variant
Dim r As Integer
arr1 = Array(TB0, tb1, cb1, tb3, tb4, cb2, tb5)
                '''Dim str As String
                '''str = Join(arr1)
                '''MsgBox str
MsgBox Join(arr1)
ReDim arr1(0, 6)
        For r = LBound(arr1) To UBound(arr1)
        ListBox1.ColumnCount = 7
        ListBox1.List = arr1
           
        Next

End Sub