verkürzte If-Anweisung

Dim bRetVal As Boolean
Dim a As Integer = 1
Dim b As Integer = 2

bRetVal = IIf(a = b, True, False) ' wenn a = b dann True, sonst False