IF

Imports System.Console

Module Program
    Dim Antwort, Restart As String
    Sub Main()
        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

        ReadLine()
    End Sub
End Module