Make Text File And Print To It With VBA

Instead of me saving a blank text file in the folder where the workbook resides, I would like it incorporated in the macro if possible. The name of the text file would be the value (string?) in cell B5.


Sub MakeTextFile()

Sheets("Sheet1").Select

Dim txt As String, r As Range
Dim Answer As String, MyNote As String
MyNote = "Do you have an empty text file ready in the" & vbCrLf & _
"folder where this workbook resides?" & vbCrLf & _
"This text file needs to be named" & vbCrLf & _
"ABCD.TXT"..........................................................................