Запись в файл массива типа double - VB

Option Explicit

Sub WriteArrToFile()

Dim adoStream As Object
Dim arr(10) As Double
Dim i As Integer

SetArr arr
Set adoStream = CreateObject("ADODB.Stream")
adoStream.Charset = "utf-8"
adoStream.Open
For i = 0 To UBound(arr)
    Debug.Print arr(i)
    adoStream.WriteText CStr(arr(i)) & vbNewLine
Next
Debug.Print
adoStream.SaveToFile "c:\temp\myTxt.txt", 2
Set adoStream = Nothing

End Sub


Private Sub SetArr(ByRef arr As Variant)
Dim i As Integer
For i = 0 To UBound(arr)
    arr(i) = Rnd()
Next
End Sub