If a > b AndAlso b > c Then
Dim a As Integer = +2 Dim b As Integer = 0 Dim c As Integer = -2 If a > b > c Then