Дан текстовый файл. Продублировать в нем все пустые строки - VB

Option Explicit
Dim Ss As String
 
Private Sub cmdD_Click()
   Open "1.txt" For Input As #1
   Open "2.txt" For Output As #2
   
   Do
      Line Input #1, Ss
      If Ss="" Then
         Print #2, Ss
         Print #2, Ss
      Else
         Print #2, Ss
      End If
   Loop Until EOF(1)
   Close #1, #2
End Sub