[VB.NET] Somma numeri dispari minori di N fino a 1

Module Module1

    Sub Main()

        Dim T As String
        Dim N As Int64
        Dim tot As Int64
        Dim R As Int64

INIZIO:
        tot = 0
        System.Console.WriteLine("Programma per calcolare la somma dei numeri dispari monori di N fino a 1")
        System.Console.WriteLine()
        System.Console.Write("Inserisci un numero: ")
        N = System.Console.ReadLine()
        If N = "0" Then
            System.Console.WriteLine()
            System.Console.WriteLine("Inserisci un numero maggiore di 0!")
            System.Console.WriteLine()
            GoTo INIZIO
        ElseIf N = "1" Then
            System.Console.WriteLine()
            System.Console.WriteLine("Inserisci un numero maggiore di 1!")
            System.Console.WriteLine()
            GoTo INIZIO
        End If
        While N > 0
            N = N - 1
            R = N Mod 2
            If R = 1 Then
                System.Console.WriteLine()
                System.Console.WriteLine(N & " + " & tot & " = " & N + tot)
                tot = tot + N
            End If
        End While
        If N = 0 Then
            System.Console.WriteLine()
            System.Console.WriteLine("********************")
        End If
            System.Console.WriteLine()
        System.Console.WriteLine(">>> La somma totale è " & "[" & tot & "]" & " <<<")
        System.Console.WriteLine()
RIPROVA: System.Console.WriteLine("********************")
        System.Console.WriteLine()
        System.Console.WriteLine("Vuoi riprovare? Digita S per Si e N per No")
        System.Console.WriteLine()
        T = System.Console.ReadLine()
        System.Console.WriteLine()
        System.Console.WriteLine("********************")
        System.Console.WriteLine()
            If T = "S" Then
                GoTo INIZIO
            ElseIf T = "s" Then
                GoTo INIZIO
            ElseIf T = "N" Then
                System.Console.WriteLine()
                System.Console.WriteLine("Hai scelto di non proseguire")
                System.Console.WriteLine()
                GoTo FINE
            ElseIf T = "n" Then
                System.Console.WriteLine()
                System.Console.WriteLine("Hai scelto di non proseguire")
                System.Console.WriteLine()
                GoTo FINE
            ElseIf T = "si" Then
                GoTo INIZIO
            ElseIf T = "Si" Then
                GoTo INIZIO
            ElseIf T = "no" Then
                System.Console.WriteLine()
                System.Console.WriteLine("Hai scelto di non proseguire")
                System.Console.WriteLine()
                GoTo FINE
            ElseIf T = "No" Then
                System.Console.WriteLine()
                System.Console.WriteLine("Hai scelto di non proseguire")
                System.Console.WriteLine()
                GoTo FINE
            Else
                System.Console.WriteLine("Comando non valido")
                GoTo RIPROVA
            End If

FINE:
            System.Console.WriteLine()
            System.Console.WriteLine("Premi un tasto qualsiasi")
            System.Console.ReadKey()



    End Sub

End Module