Dumps a string to a file
Original Author: Ian Ippolito (psc)
Inputs
strString–string to dump
strFile–file to dump to
Code
Sub Dump_String_To_File (ByVal strString As String, ByVal strFile As String)
Dim fileFile As Integer
fileFile = FreeFile
Open strFile For Output As fileFile
Write #fileFile, strString
Close fileFile
Dim intReturn
On Error Resume Next
intReturn = Shell("c:appsutility extpad xtpad16.exe " & strFile, 1)
On Error GoTo 0
End Sub