Module Module1 Sub Main() Dim strMessage As String Try strMessage = Console.ReadLine() Console.WriteLine("HELLO " + strMessage) Catch ex As Exception End Try End Sub End Module