Не получается отсортировать. ошибка - VB

Формулировка задачи:

Даны два файла вещественных чисел с именами S1 и S2, элементы ко- торых упорядочены по возрастанию. Объединить эти файлы в новый файл с именем S3 так, чтобы его элементы также оказались упорядоченными по возрастанию.50.rar

Решение задачи: «Не получается отсортировать. ошибка»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Const MAX_DBL = 1E+308
 
Dim d1#, d2#
Open App.Path & "\S3.txt" For Output As #3 'отрываем файл в который помещаем
Open App.Path & "\S1.txt" For Input As #1
Open App.Path & "\S2.txt" For Input As #2
If Not EOF(1) Then Input #1, d1
If Not EOF(2) Then Input #2, d2
Do
  If d1 < d2 Then
    Print #3, d1
    If Not EOF(1) Then Input #1, d1 Else d1 = MAX_DBL
  Else
    Print #3, d2
    If Not EOF(2) Then Input #2, d2 Else d2 = MAX_DBL
  End If
Loop Until d1 = MAX_DBL And d2 = MAX_DBL
Reset
End Sub
                        