#namespace IO
    Public Class File
        Public Shared Sub WriteLine(ByVal Path As String, ByVal Text As String)
            Dim fs As New StreamWriter(Path, True)
            fs.WriteLine(Text)
            fs.Close()
        End Sub
    End Class
#Endnamespace