Someone

Option Strict On
Imports System.Console

Module Module1

    Sub Main()
        Const lukumaara As Integer = 10
        Dim tulokset(lukumaara - 1) As String
        Dim tulos1, laskuri, suurin As Integer

        laskuri = 1
        suurin = 0

        While laskuri <> 10
            Write("Anna {0}. heittotulos: ", laskuri)
            tulos1 = CInt(ReadLine())

            If IsNumeric(tulos1) = True Then

                If suurin < tulos1 Then
                Else
                    WriteLine("Luku " & tulos1 & " on suurin.")
                End If

                'tähän suurimman luvun tarkistus
            Else
                'tulos ei ole numeerinen
                WriteLine("Tulos ei ole numeerisessa muodossa.")
            End If

            laskuri = laskuri + 1

        End While

        WriteLine(tulokset(lukumaara - 1))

        ReadLine()

    End Sub

End Module