So I'm a rookie programmer trying to make a program that creates text files and then reads and writes data to them. I've got everything down but the writing part. Currently I get errors when I try to write to my text files. The most common of witch is error 70. I've been stuck with this problem for 3 days now and I was wondering if any of ya all could help me out.

O ya this is the bit of code I have been working with.

Private Sub cmdCreateFile_Click()


'Data for text file

Dim strName As String
Dim strSoul As String
Dim strBody As String
Dim strMind As String

strName = txtName.Text
strSoul = txtSoul.Text
srtBody = txtBody.Text
strMind = txtMind.Text

'Creates Text File-----------------------------------------

Dim strFilePath As String
strFilePath = App.Path & "\Data\Characters\" & txtName.Text & ".txt"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(strFilePath)

'Fails To write data---------------------------------

Open strFilePath For Output As #2
Write #2, strName


End Sub


Thanks for any help you all can give me, its much appreciated.