Imports System

Public Module Module1

    Public Sub Main()

        dim marks as string

        Console.WriteLine("'Have you done your homework?'Said the cold, evil and malevolent voice.")

        marks = console.ReadLine()

            if marks.ToLower() = ("yes")

            console.WriteLine("'You have just dodged the bullet that would of gotten you killed'the cold voice said once more.")

        else

            console.WriteLine("'You know what is going to happen now, child?'said the teacher who was smiling'A month's worth of detentions'.")

        end if

    End Sub

End Module