Кажется, нашла самый примитивный и лобовой способ сделать монохромное изображение. Вот оно:

CLR = "#00" & asHex1((R + G + B) \ 3) & "00"