Zahl1 größer kleiner als Zahl2, oder gleich groß?

Jaaaa, ich bin es schon wieder (sorry)


Ein Programm soll entscheiden, ob eine Zahl größer als eine andere sei oder ob beide gleich groß seien

hab da schon ein wenig was "geschafft" aber es funzt nicht so wie ich es gerne gehabt hätte

Hier mal mein Vorschlag:

Module Module1

    Sub Main()
        Console.WriteLine("Das Programm entscheidet, ob eine Zahl kleiner ist als eine andere oder ob beide Zahlen gleich groß sind. ")
        Dim Zahl1 As Double
        Dim Zahl2 As Double

        If Zahl1 = Zahl2 Then
            Zahl1 = Console.ReadLine()
            Zahl2 = Console.ReadLine()
            Console.WriteLine("Die Zahlen sind gleich")
            Console.ReadLine()

        ElseIf Zahl1 < Zahl2 Then
            Zahl1 = Console.ReadLine()
            Zahl2 = Console.ReadLine()
            Console.WriteLine("Die erste Zahl ist kleiner als die zweite")
            Console.ReadLine()

        ElseIf Zahl1 > Zahl2 Then
            Zahl1 = Console.ReadLine()
            Zahl2 = Console.ReadLine()
            Console.WriteLine("Die zweite Zahl ist kleiner als die erste")
            Console.ReadLine()

        End If
        Console.ReadLine()


    End Sub

End Module



? ein Vorschlag was ich nicht bedacht habe?