Как работать в ListBox с несколькими столбцами

    With UserForm1.ListBox1
        For i = 0 To UBound(Array1)
            .AddItem
            .Column(0, i) = Array1(i)
            .Column(1, i) = Array2(i)
            .Column(2, i) = Array3(i)
            .Column(3, i) = Array4(i)
        Next i
    End With

For i = LBound(a1) To UBound(a1)
  ListBox1.AddItem a1(i)
  ListBox1.List(ListBox1.ListCount - 1, 1) = a2(i)
  ListBox1.List(ListBox1.ListCount - 1, 2) = a3(i)
  ListBox1.List(ListBox1.ListCount - 1, 3) = a4(i)
Next

Me.ListBox5.List() = spisok()

            
ReDim Preserve NN(UBound(NN) + 1)
NN(UBound(NN)) = j

NN(UBound(NN)) = j
ReDim Preserve NN(UBound(NN) + 1)

public NN_Count as long

ReDim Preserve NN(NN_Count)
NN(NN_Count) = j
NN_Count=NN_Count+1

If Klih(0) <> Empty Then
    ReDim Preserve Klih(UBound(Klih) + 1)
End If
Klih(UBound(Klih)) = Elem

Option Explicit
 
Dim Klih()
 
Sub AddKlih()
If Klih(0) <> Empty Then
  ReDim Preserve Klih(UBound(Klih) + 1)
End If
Klih(UBound(Klih)) = 1 'Elem
End Sub

Option Explicit
 
Dim Klih()
 
Sub AddKlih()
Redim Klih(0)
If Klih(0) <> Empty Then
  ReDim Preserve Klih(UBound(Klih) + 1)
End If
Klih(UBound(Klih)) = 1 'Elem
End Sub

Option Explicit
Dim a() As Byte
 
Sub qqq()
ReDim a(0)
Dim I As Byte
For I = 0 To 9
  If a(0) <> Empty Then
    ReDim Preserve a(UBound(a) + 1)
  End If
  a(UBound(a)) = I
Next I
End Sub

Private Sub Form_Open(Cancel As Integer)
    Dim R, C, N
    For R = 1 To 10
    N = N + 1
          Form_Форма1.ListBox1.AddItem N & ";" & N + 1 & ";" & N + 2 & ";" & N + 3 & ";" & N + 4
    Next R
End Sub