В зависимости от выбранного пользователем уровня сложности вывести количество слов

Function Уровень(ByRef УровеньПришел As Integer)
        Dim МассивСлов() As String = {"1", "2", "3", "4", "5", "2", "3", "4", "5", "2", "3", "4", "5"}
        Dim ПолучаемУровень, ДлинаМассива As Integer
 
        For i = 1 To МассивСлов.Length
            ДлинаМассива += 1
        Next
        'Console.WriteLine(lenlvl)
        'lenlvl = Len(mass())
        If (УровеньПришел = 1) Then
            ПолучаемУровень = ДлинаМассива \ 3 'Легкий
        ElseIf (УровеньПришел = 2) Then
            ПолучаемУровень = ДлинаМассива \ 2 'Средний
        ElseIf (УровеньПришел = 3) Then
            ПолучаемУровень = ДлинаМассива \ 1 'Сложный
        Else : Console.WriteLine("Несуществующий уровень!")
        End If
 
        For i = 0 To ПолучаемУровень - 1
 
            Console.WriteLine(МассивСлов(i))
        Next
    End Function

    Sub Уровень(ByRef УровеньПришел As Integer)
        Dim МассивСлов() As String = {"1", "2", "3", "4", "5", "2", "3", "4", "5", "2", "3", "4", "5"}
        If УровеньПришел > 3 Or УровеньПришел < 1 Then MsgBox("Несуществующий уровень!") : Exit Sub
        For i = 0 To (МассивСлов.Length \ (4 - УровеньПришел)) - 1
            MsgBox(МассивСлов(i))
        Next
    End Sub