Преобразование перевода строки в файл CSV

Question

Я беру файл по URL-адресу и сохраняю его на свой c диск. Однако, если я загружаю некоторые файлы в notelpad, я получаю одну строку вместо crlf после каждой строки.

Может ли кто-нибудь помочь мне написать сценарий преобразования, который преобразует файл с правильным crlf?

Sub downloadIcalFiles(icalfilename)
Dim myURL As String
Dim HttpReq As Object
Dim csv_string As Object

myURL = icalfilename

Set HttpReq = CreateObject("MSXML2.ServerXMLHTTP.6.0")
HttpReq.Open "GET", myURL, False, "login", "password"
HttpReq.send

myURL = HttpReq.responseBody
If HttpReq.Status = 200 Then
    Set oStrm = CreateObject("ADODB.Stream")
    oStrm.Open
    oStrm.Type = 1
    oStrm.Write HttpReq.responseBody
    oStrm.SaveToFile "C:\Temp\ical" & "\" & "icalfile.csv", 2 ' 1 = no overwrite, 2 = overwrite
    Application.StatusBar = "Ical: " & icalfilename
    oStrm.Close
End If


End Sub

Вышеуказанное работает нормально, однако я думаю, мне нужно что-то для преобразования HttpReq.responseBody в правильный формат.