Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim gradeArray As Integer(,) = New Integer(,) {{1, 2, 3, 4}, {4, 3, 8, 1}, {7, 9, 8, 1}}
Dim grade As Integer
Dim lowGrade As Integer = 100
For Each grade In gradeArray
If grade < lowGrade Then
lowGrade = grade
End If
Next
Console.WriteLine("The minimum grade is: {0}", lowGrade)
End Sub
End Class