请问大家 Console.ReadLine 怎么用啊！现在有一个程序大家帮我看看啊！为什么按回车就返回！
Module Module1

    Sub Main()
        Dim mystring As String = "你好"
        Dim mytime, myread As String
        Console.WriteLine(mystring)
        mytime = "当前日期" & Today.ToString("yyyy年MM月dd日 dddd")
        Console.WriteLine(mytime)
        Do
            mystring = "当前时间" & TimeOfDay.ToString("HH:mm:ss")
            Console.WriteLine(mystring)
            mystring = "输入任何键 + Enter重复显示，直接按Enter键返回"
            Console.WriteLine(mystring)
            myread = Console.ReadLine()
        Loop While myread.Length <> 0
    End Sub
End Module