Visual Basic

<br />
Private Sub CreateTextFile(ByVal FilePath As String, ByVal data As String)<br />
        Dim oFile As System.IO.File<br />
        Dim oWrite As System.IO.StreamWriter<br />
        Dim oRead As System.IO.StreamReader<br />
        Dim PreviousData As String = ""<br />
        Dim CheckHypen As String<br />
<br />
        If File.Exists(FilePath) Then<br />
            oRead = oFile.OpenText(FilePath)<br />
            While oRead.Peek <> -1<br />
                If PreviousData = "" Then<br />
                    PreviousData = oRead.ReadLine()<br />
                Else<br />
                    <br />
                    PreviousData = PreviousData & ControlChars.NewLine & oRead.ReadLine()<br />
                   <br />
                End If<br />
            End While<br />
            oRead.Close()<br />
        End If<br />
<br />
<br />
        oWrite = oFile.CreateText(FilePath)<br />
<br />
        If PreviousData = "" Then<br />
            oWrite.WriteLine(data)<br />
        Else<br />
            oWrite.WriteLine(PreviousData & ControlChars.NewLine & data)<br />
        End If<br />
        oWrite.Close()<br />
<br />
    End Sub