Problem resolved by using Console.KeyAvailable

Sub Main()
Dim dat As String
Do
    Console.WriteLine("Inside loop")
    If Console.KeyAvailable Then
       Console.WriteLine()
       dat = Console.ReadLine()
      Exit Do
    End If
Loop
Console.WriteLine("Exited loop")
Console.ReadLine()
End Sub