Public Sub WriteTxt(ByVal strPara As String)
On Error Resume Next
Dim objFSO As Object
Dim objTextFile As Object
Set objFSO = New Scripting.FileSystemObject
Set objTextFile = objFSO.OpenTextFile(App.Path & "\para.txt", ForAppending, True)
objTextFile.WriteLine strPara
objTextFile.Close
Set objTextFile = Nothing
Set objFSO = Nothing
End Sub