Attaching Hex value 0x0D to a text output

[psycoperl]

Good Afternoon,
I am am generating a list of values which will be encoded as a QRCode. Using the function CreateQRCodeList. What I need to do is to apend to each line as it is being written the Hex byte value of 0x0D which signals a carriage return in the QRCode. How can I append this?

Thank You

Function CreateQRCodeList(strQRCode As String)
   
   Dim strLogFile As String
   strLogFile = Quick_QRCode_List & QUICK_Term_Semi & QUICK_Term_Year & "\QRCodeList_" & fOSUserName & "_" & Format(Now(), "YYYYMMDD_HHMM") & ".txt"
      
   Open strLogFile For Append As #1
 
    Print #1, strQRCode
 
   Close #1
End Function