VBA как установить формат дата для N-го столбца в ListBox'е

[Скрипт]

VictorM, а пройтись по VBA-массиву по каждому элементу первого столбца с преобразованием типа данных "Variant/Data" в тип данных "Variant/String" долго очень получается?

Примечание

Я так понимаю, что прежде чем данные попадают в ListBox, данные преобразуются в тип данных "String". ListBox так переводит тип данных "Variant/Data" (в VBA-массиве с типом данных "Variant", так находятся даты, взятые откуда-то. Это можно посмотреть в "View" - "Local Windows") в тип данных "String", что даты форматируются без учёта языка операционной системы, без учёта языковых параметров операционной системы, а тупо по английским правилам.

[VictorM]

Поскольку после выборки строк в массиве остается не так уж много, сделал так

k = UBound(resArr)
    For i = 1 To k
        resArr(i, 1) = Str(resArr(i, 1))
    Next i
    Me.ListBox_История.List = resArr

все работает отлично, в первом стольбце дата в формате 31.03.2013

[Скрипт]

VictorM, можно обойтись и без переменной "k" (чтобы в коде меньше было ненужного):

For i = 1 To UBound(resArr)

Функция UBound будет вызываться только один раз при первой итерации (итерация, другими словами, - это виток) цикла, а не при каждой итерации цикла.

[VictorM]

Скрипт, спасибо. Так и сделаю.