Помогите, поправить типа

=IIf([ВидОборота]="Расход";[ Rect1]=”Красный цвет”;[ Rect1]=”Зеленый цвет)

В ниже следующем

Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
Dim rpt As Report, lngColor As Long
Dim xx1 As Single, xx2 As Single
Dim yy1 As Single, yy2 As Single, tmax As Single
Dim width As Single
Dim x1 As Single, y1 As Single, x2 As Single, y2 As Single, t As Single
Set rpt = Me

rpt.ScaleMode = 1

yy1 = rpt.ScaleTop
xx1 = rpt.ScaleLeft
xx2 = rpt.ScaleWidth
yy2 = rpt.ScaleHeight
width = (xx2 - Me![Rect1].Left - 10) * Me![Sum-Сумма] / Me![MaxWidth].Value

Me![Rect1].width = width
End Sub