First write your file blank. Then append the text.
Dim objReader As StreamReader
Dim objWriter As StreamWriter
Dim i As Integer = 0
Dim LineIn As String
Try
objWriter = New IO.StreamWriter(FilePATH1 & "\" & TextBox1.Text & ".sql")
objWriter.WriteLine("")
objWriter.Close()
For i = 0 To mFileName.Length - 1
objReader = File.OpenText(mFileName(i))
objWriter = New IO.StreamWriter(FilePATH1 & "\" & TextBox1.Text & ".sql", true)
While objReader.Peek <> -1
LineIn = objReader.ReadLine()
objWriter.Write(LineIn & vbNewLine)
End While
objWriter.WriteLine("Go")
objWriter.Close()
Next
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try