Максимальная длина подпоследовательности

    Sub Main()
        Dim s As String = "", MaxS As String = "", ss As String = ""
        Dim n As Integer = 0, lenS As Integer = 0, maxLen As Integer = 0
        Do
m:          Console.WriteLine("Введите число")
            n = Val(Console.ReadLine)
            If n = 0 Then Exit Do
            If n < -30000 Or n > 30000 Then GoTo m
            s &= n.ToString & "; "
            If Len(Math.Abs(n).ToString) = 2 Then
                lenS += 1 : ss &= n.ToString & "; "
                If maxLen < lenS Then MaxS = ss : maxLen = lenS
            Else
                lenS = 0 : ss = ""
            End If
        Loop
        Console.WriteLine("В последовательности: " & s)
        If maxLen = 0 Then
            Console.WriteLine("Двузначных чисел по модулю нет.")
        Else
            Console.WriteLine("Максимальная подпоследовательность состоящая только из двузначных чисел по модулю: " & MaxS)
            Console.WriteLine("Максимальная длина подпоследовательности: " & maxLen)
        End If
        Console.ReadKey()
    End Sub