Intentalo con este código
Un saludo.
·················································· ······························

Imports System.IO
Public Class Form1
Private Sub GeneraArchivo()
'Variables para abrir el archivo en modo de escritura
Dim strStreamW As Stream
Dim strStreamWriter As StreamWriter
Try
Dim FilePath As String = "C:\borra.txt"
'Se abre el archivo y si este no existe se crea
strStreamW = File.OpenWrite(FilePath)
strStreamWriter = New StreamWriter(strStreamW, _
System.Text.Encoding.UTF8)
Dim Linea As String = "Texto de txt1 " + " Text de txt2"
'Escribimos la línea en el achivo de texto
strStreamWriter.WriteLine(Linea)
strStreamWriter.Close()
MsgBox("El archivo se generó con éxito")
Catch ex As Exception
strStreamWriter.Close()
MsgBox(ex.Message)
End Try
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
GeneraArchivo()
End Sub
End Class

__________________
Santiago M.