Вывести позицию и длину самой длинной непрерывной цепочки из символов а

Public Class Form1
    Private Const MainStr As String = "aabbbbaaaaabjhnnbb1bgbbbaaaaaakkk11jaaaaaaaaaaaalkjjj"
    Dim _char As String = "a"
    Dim arrLength As New ArrayList
    Dim arrPos As New ArrayList
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim k As Integer = 1
        For j As Integer = 1 To Len(MainStr)
            If Mid(MainStr, j, 1) = _char Then
                arrLength.Add(getQuantChar(j))
                arrPos.Add(j)
            End If
        Next
        Dim maxLength As Integer = 0
        Dim pos As Integer = -1
        For i As Integer = 0 To arrLength.Count - 1
            If CInt(arrLength(i)) > maxLength Then
                maxLength = CInt(arrLength(i))
                pos = arrPos(i)
            End If
        Next
        MsgBox("Максимальная длинна символа '" & _char & "'=" & maxLength & vbNewLine & "А его позиция=" & pos, MsgBoxStyle.Information)
    End Sub
    Function getQuantChar(ByRef startIndex As Integer) As Integer
        Dim k As Integer = 0
        While Mid(MainStr, startIndex, 1) = _char
            startIndex += 1
            k += 1
        End While
        Return k
    End Function
End Class

        Dim S As String = "fhpstuuuqbnmuuuuusaetyreuuuuuuu478"
        Dim C As Char = "u"
        Dim Position As Integer = 0
        Dim MaxLen As Integer = 0
        Dim Tmp As Integer = 0
        For I As Integer = 1 To S.Length
            If C = Strings.Mid(S, I, 1) Then
                Tmp += 1
                If Tmp > MaxLen Then
                    MaxLen = Tmp
                    Position = I - Tmp + 1
                End If
            Else
                Tmp = 0
            End If
        Next
        If MaxLen <> 0 Then
            MsgBox("Максимальная длина: " & MaxLen & ", началась в позиции: " & Position)
        Else
            MsgBox("Такой символ не встречается")
        End If