Mine

Option Strict On
Imports System.Console

Module Module1

    Sub Main()
        Dim edellinen, syotto, i As Integer
        WriteLine("Anna luku")
        edellinen = CInt(ReadLine())
        syotto = edellinen + 1
        i = 1

        While i < 5 And syotto > edellinen
            WriteLine("Anna uusi luku")
            syotto = CInt(ReadLine())
            If syotto > edellinen Then
                WriteLine("OLI")
                i = i + 1
            Else
                i = 100
            End If
        End While
        If i = 5 Then
            WriteLine("Ohjelma loppui")
        End If
        If i = 100 Then
            WriteLine("EI")
        End If

        ReadLine()
    End Sub

End Module