Составить алгоритм и программу подсчета чисел

    Sub Main()
        Dim line As String
        Dim count As Integer
        Dim countMax As Integer
        Dim change As Integer = 0
        Dim last As String
 
        Console.WriteLine("     После ввода числа требуется Enter для завершения ввода.")
        Console.WriteLine("     для подсчета резучьтата нажмите q и Enter.")
        Console.WriteLine("")
 
        Do
            Console.Write("    ")
            line = Console.ReadLine()
            'If line IsNot Nothing Then Console.WriteLine("     " & line)
            If line <> "q" Then
 
                If line > 0 Then
                    count = 0
                ElseIf line < 0 Then
                    count += 1
                    If countMax < count Then countMax = count
                Else
                    Console.WriteLine("    Ввод значени 0 не допустим, попробуйте еще раз.")
                    GoTo ex
                End If
 
                If (last IsNot Nothing) And (line > 0 Xor last > 0) Then change += 1 ' line > 0 Xor last > 0 And
                last = line
ex:
            End If
        Loop While line <> "q"
        Console.WriteLine("")
        Console.WriteLine("     Из вводимых чисел была максимальная серия из : " & countMax & " идущих подряд")
        Console.WriteLine("     отрицательных чисел.")
        Console.WriteLine("     В последовательности чисел " & change & " раз происходила смена знака.")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("     Для выхода из программы нажмителюбую клавишу ...")
 
        Do
            Console.ReadLine()
        Loop Until Console.ReadLine IsNot Nothing
 
    End Sub