Вставка определенного количества пробелов

[Klim Bassenger]

Подскажите, пожалуйста!
Есть код:
a = Range([A2], Cells(Rows.Count, "C").End(xlUp)).Value: ListBox1.Clear

For i = 1 To UBound(a, 1)
j = 20 - Len(a(i, 1)) - Len(a(i, 3))


If a(i, 2) = ComboBox1.Value Then ListBox1.AddItem LTrim(a(i, 1)) & СЮДА & RTrim(a(i, 3))

Next
Как вставить в данную строчку количество пробелов, кратное j???

[diment]

If a(i, 2) = ComboBox1.Value Then ListBox1.AddItem LTrim(a(i, 1)) & Application.WorksheetFunction.Rept(" ", j)& RTrim(a(i, 3))

[SAS888]

Лучше так:

If a(i, 2) = ComboBox1.Value Then ListBox1.AddItem LTrim(a(i, 1)) & Space(j) & RTrim(a(i, 3))

[Klim Bassenger]

Сообщение от SAS888

Лучше так:

If a(i, 2) = ComboBox1.Value Then ListBox1.AddItem LTrim(a(i, 1)) & Space(j) & RTrim(a(i, 3))

Всего-то... Спасибо.