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