Imports System

Public Module Module1

    Public Sub Main()

        dim marks as string

        Console .WriteLine ( "enter mark")

        marks = console.readline()

        if marks>40 then

            console .WriteLine("passed")

        elseif marks >65 then

    End Sub

End Module