IF

Imports System.Console

Module Program
    'Vereinbarungsteil
    Dim Antwort As String
    Sub Main(args As String())
        'Eingabe
        Write("Gehts gut? Ja/Nein: ")
        Antwort = ReadLine()
        'Verarbeitung+Ausgabe
        'Zwei einseitige Auswahlen
        If Antwort = "Ja" Then
            WriteLine("Alles i.O.")
        End If
        If Antwort = "Nein" Then
            WriteLine("Oh Schade!")
        End If
        'Zweiseitige Auswahl
        If Antwort = "Ja" Then
            WriteLine("Nice!")
        Else
            WriteLine("Not Nice!")
        End If
        'Zwei einseite Auswahlstrukturen lassen nur die beiden regulären Ausdrücke Ja bzw. Nein zu.
        'Die zweiseitige Auswahlstruktur prüft im obigen Falle nur ob Ja eigegeben wurde und wenn nicht (alles alles andere) gibt sie den Else Teil aus.



    End Sub
End Module