использование массивов для копирования набора записей в Excel

Question

Я создал соединение cn и вариантный массив vArray и sSQL в виде строки.

Когда я использую код

Dim cn As ADODB.Connection, vArray, sSQL as string, rng as Range
set rs=cn.Execute(sSQL)
    vArray = rs.GetRows
    With rng.Resize(UBound(vArray, 1) + 1, UBound(vArray, 2) + 1)
        .Value = vArray
    End With

vArray получает данные очень хорошо, но когда они копируются на лист, он усекает число до двух десятичных цифр. Как сохранить все цифры (например, 3 цифры) в электронной таблице?