写文本文件的时候如何把引号去掉

Private Sub SaveRefreshRecord(ByVal sRecordFile As String, ByVal sText As String)
Dim fnum As Integer
Dim blnOpen As Boolean
On Error GoTo ErrPTD
    fnum = FreeFile()
    Open sRecordFile For Append As #fnum
    blnOpen = True
    Print #fnum, , sText
    Close #fnum
    blnOpen = False
    Exit Sub
ErrPTD:
    If blnOpen Then Close #fnum
End Sub