Sub Write ()
Dim hostSettleTimeout As Integer
Dim hostSettleTime As Integer
Dim ibmCurrentScreen As IbmScreen
Dim ibmCurrentTerminal As IbmTerminal
Dim returnValue As Integer
Dim hiddenTextEntry As String
hostSettleTimeout = 5000
hostSettleTime = 300
Set ibmCurrentTerminal = ThisFrame.SelectedView.control
Set ibmCurrentScreen = ibmCurrentTerminal.Screen
' Writing File to C:\My Documents\File.txt
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("C:\My Documents\File.txt", True)
a.WriteLine ("Hello World") ' Hello World is written to a File.txt
a.Close
End Sub