IF

Imports System.Console

Module Program
    Dim Antwort As String
    Sub Main(args As String())
        Write("Geht es Ihnen gut? Bitte antworten Sie mit Ja oder Nein: ")
        Antwort = ReadLine()
        If Antwort = "Ja" Then
            Write("Ich wünsche Ihnen einen schönen Tag.")
        Else
            Write("Das tut mir leid für Sie, ich hoffe es geht Ihnen bald wieder besser.")
        End If
        If Antwort = "Nein" Then
            Write("Sorry bro, das nich so Knorke")
        End If
        If Antwort = "Ja" Then
            Write(" Ja moin was bsiten du für ein Lucker")
        End If
        ReadLine()
    End Sub
End Module
'Bei 2 Einzelnen kann man die Antworten genau definieren, bei der Großen nicht da auf "alles ausser "Ja"" geantwortet.