Hi all,

I have a question i was able to load a textbox value in the text file where text data = " " is . But i want another condition to execute ie.. if there is text box value i want to put value in Message data = " .text " and if not i want to replace it with another value.
the file looks like this
[ Text 1 ]
text data = " "

[text 2 ]
message data = " "

this is the code iam trying with

Dim tmp As String
Dim lines() As String
Dim x As Integer
Open "default.txt" For Binary As #1
tmp = Space(LOF(1))
Get #1, , tmp
Close #1

lines = Split(tmp, vbCrLf)
For x = 0 To UBound(lines)
If lines(x) = "[Text 1]" Then
x = x + 1
Exit For
End If
Next

lines(x) = "Text Data = " & Trim(cusname.Text) & " " & Trim(phone.Text) & " " & Trim(txtitem.Text)

Open "default.txt" For Output As #1
For x = 0 To UBound(lines)
Print #1, lines(x)
Next
Close #1

can anyone help