Imports System.IO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, _

                ByVal e As System.EventArgs) Handles Button1.Click

        Try

            Dim writeFile As System.IO.TextWriter = New _

            StreamWriter("c:\textwriter.txt")

            writeFile.WriteLine("vb.net-informations.com")

            writeFile.Flush()

            writeFile.Close()

            writeFile = Nothing

        Catch ex As IOException

            MsgBox(ex.ToString)

        End Try

    End Sub

End Class