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