Example 1

Private Sub Form_Load()

Dim objFSO As New FileSystemObject
Dim objFile As Object
Dim varString As Variant
varString = Array("some", "sample", "text")
Set objFSO = CreateObject("Scripting.FileSystemobject")
Set objFile = objFSO.CreateTextFile("f:\Test2.txt")
objFile.WriteLine varString(0) & " " & varString(1) & " " & varString(2)
objFile.Close

End Sub

Example 2

Creates a file called test1.txt and writes some text into it.

Private Sub Form_Load()

Open "f:\Test1.txt" For Output As #1
Write #1, "This is some sample text"
Write #1, "Programmershelp.co.uk"
Close #1

End Sub