RosettaCodeData/Task/Loops-Nested/Visual-Basic-.NET/loops-nested-8.vb

        Dim done = False
        For r = 0 To ROWS - 1
            For c = 0 To COLS - 1
                Dim val = nums(r, c)
                Console.WriteLine(val)
                If val = 20 Then
                    done = True
                    Exit For
                End If
            Next
            If done Then Exit For
        Next