Exporting from Excel to a Text file

I have a value in an Excel cell, which needs to be expressed as a percentage for presentation purposes.

However I also need to export this value into a text file.

However, when I export the contents it appears in the text file as scientific notation.

I need to express the contents of the Excel cell in the Text File as a deciaml to 8 decimal places (no scientific notation).

....

by the way... the code is...

save_file = Range("B13").Value
RawDate = Range("B3").Value
return_bench = Range("I18").Value

RawYear = Year(RawDate)
RawMonth = Month(RawDate)
RawDay = Day(RawDate)

If (RawDay < 10) Then
RawDay = "0" & RawDay
End If

If (RawMonth < 10) Then
RawMonth = "0" & RawMonth
End If

convert_date = RawYear & RawMonth & RawDay

Set fs = CreateObject("Scripting.FileSystemObject")
Set syl = fs.CreateTextFile(save_file, True)

syl.write ("MIH,XXXXXXX," & convert_date & "," & convert_date & ",,,,,,,,")
syl.write (vbCrLf)

syl.write ("MIV,XXXXXXX,XXXXXXX,")
syl.write (convert_date & "," & convert_date & ",,,")

syl.write (",,1," & return_bench & "," & return_bench)
syl.write (vbCrLf)

syl.Close

exitsub:
Exit Sub

End Sub

and the relevent cell is "I18"