Копирование данных в блокнот

[SmokyCheetah]

Подскажите, пожалуйста, как скопировать данные в блокнот из Excel. Мне необходимо скопировать из определенных ячеек данные, причем в блокноте данные из каждой ячейки должны располагаться на новой строке. Так же, данные в ячейках имеются с разделителем "," а в блокноте должен быть ".".
Вот вид в Exсуд - каждая стока, это ячейка
//011 181111 028 24 4990 10002 9194 808 0 510 298 90,9 48,3
13,9 1 1 1 1 2 2 2 2 0 0 0 0 0 0 1 86 130 2143 8 3
0,8 0,7 1,0 0,6 17,1 -2,0///

Вот так должно выглядить в блокноте:
//011 211211 028 24 4990 10002 9194 808 0 510 298 90.9 48.3
13.9 1 1 1 1 2 2 2 2 0 0 0 0 0 0 1 86 130 2143 8 3
0.8 0.7 1.0 0.6 17.1 -2.0///

Вот часть моего кода (sv - переменная с именем файла, l, m, k - пременные с данными из ячеек):
Set wa = CreateObject("scripting.filesystemo bject")
Set wd = wa.CreateTextFile(sv, True)
wd.write l:
wd.write m:
wd.write k:
wd.Close
CreateObject("wscript.shell").Run """" & sv & """"

[Watcher_1]

Зачем вам блокнот?
Не проще ли открыть файл в последовательном доступе на запись и добавлять в него информацию...

[Skif-F]

Попробуйте так:

Sub aa()
    sv = "D:\aaa.txt"
    l = "lll,lll,lllllll lllllllllllll"
    m = "mmm,mmmm,mmm mmmmmmmmmmmmm"
    k = "kkkkkkkkk,kkk kkkkkkkk,kkk"
    
    l = Replace(l, ",", ".")
    m = Replace(m, ",", ".")
    k = Replace(k, ",", ".")

    Set wa = CreateObject("scripting.filesystemobject")
    Set wd = wa.CreateTextFile(sv, True)
    wd.write l + vbCrLf:
    wd.write m + vbCrLf:
    wd.write k + vbCrLf:
    wd.Close
    CreateObject("wscript.shell").Run """" & sv & """"
End Sub