Sub vergleich()
    'Dies ist ein Testprogramm fuer Vergleiche
    'Dateiname: vergleich
    Dim ergebnis As Boolean
    Dim i%, j%, k%
    i = 6
    j = 8
    ergebnis = (i < j)
    MsgBox ("Vergleich 6 < 8 " & ergebnis)
    ergebnis = (i > j)
    MsgBox ("Vergleich 6 > 8 " & ergebnis)
    ergebnis = (i <= j)
    MsgBox ("Vergleich 6 <= 8 " & ergebnis)
    ergebnis = (i >= j)
    MsgBox ("Vergleich 6 >= 8 " & ergebnis)
    ergebnis = (i = j)
    MsgBox ("Vergleich 6 = 8 " & ergebnis)
    ergebnis = (i <> j)
    MsgBox ("Vergleich 6 ungleich 8 " & ergebnis)
End Sub