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