How to change below code for text file to pdf
filename = "c:\Notes\" & strComputer &".txt"
Set obFSO = CreateObject("Scripting.FileSystemObject")
Set obTextFile = obFSO.OpenTextFile(filename, ForWriting, True)
obTextFile.WriteLine UCase(message)
obTextFile.Close
Set obTextFile = Nothing
Set obFSO = Nothing