File Path VisualBasic Script

Sub WriteStringsWithDelimiters()
         Dim sLine As String
         Dim sFName As String    'Path and name of text file
         Dim iFNumber As Integer    'File number
         Dim lRow As Long     'Row number in worksheet
         Const sVS As String = ";"   'Variable separator character
         Const sTD As String = """"  'Text delimiter character
         Const sDD As String = "#"    'Date delimiter character
         sFName = "C:\Delimited.txt"
         iFNumber = FreeFile
         Open sFName For Output As #iFNumber
         lRow = 2
         Do
             With Sheet1
               sLine = sDD & format(.cells(lRow, 1), "yyyy-mmm-dd") & sDD & sVS
               sLine = sLine & sTD & .cells(lRow, 2) & sTD & sVS
               sLine = sLine & sTD & .cells(lRow, 4) & sTD & sVS
               sLine = sLine & format(.cells(lRow, 6), "0.00")
             End With
             Print #iFNumber, sLine
             lRow = lRow + 1
         Loop Until IsEmpty(Sheet1.cells(lRow, 1))
         Close #iFNumber
     End Sub