Imports System

Public Module Module1

    Public Sub Main()

        Dim myArray = New Integer() { 5, 97, 96, 95, 100, 99, 98, 27, 30 }

        Dim largestNumber As Integer

        Dim secondLargest As Integer

        For Each i In myArray

            If i > largestNumber Then 

                largestNumber = i

            Else

                If i > secondLargest Then secondLargest = i

            End If

        Next

        Console.WriteLine(secondLargest)

    End Sub

End Module