تبدیل 2 خط به یک خط

[vb-sosol]

سلام

من یکسری نوشته دارم توی نودپد میخوام هر خط پایین بیاد به خط بالا بچسبه و یک ویرگول بین دو خط قرار بدهد

لطفا راهنمائی کنید

[M.T.P]

Sub Combine()
Dim FN1 As Integer
Dim FN2 As Integer
Dim File1 As String
Dim File2 As String
Dim STemp1 As String
Dim STemp2 As String
Dim STemp3 As String

File1 = App.Path & "\01.txt"
File2 = App.Path & "\02.txt"
FN1 = FreeFile
Open File1 For Input As FN1
FN2 = FreeFile
Open File2 For Output As FN2
Do Until EOF(FN1) = True
Input #FN1, STemp1
If EOF(FN1) = True Then GoTo LL
Input #FN1, STemp2
STemp3 = STemp1 & " , " & STemp2
Print #FN2, STemp3
Loop
Close FN2
Close FN1

LL:
MsgBox "Combine Complete.", vbInformation
End Sub