Imports System

Public Module Module1

​

​

    Sub Main()

        Dim Lucent As IO.StreamWriter

        Lucent = New IO.StreamWriter("\\study\Users\13600\HiLo.txt", True)

        Lucent.WriteLine(Console.ReadLine)

        Lucent.Close()

        Console.ReadLine()

    End Sub

​

End Module