Usar modulo en varios informes

BueDetalle_Print(Cancel As Integer, PrintCount As Integer)
If Me!Marca.Value = "Sin marca" Then
Me!AnillaMarca.Value = "////"
Me!AnillaMarca.BackColor = RGB(255, 255, 255)
Me!AnillaMarca.ForeColor = 0
Else
Me!AnillaMarca.Value = ""
End If
If Me!Marca.Value = "Blanco" Then
Me!AnillaMarca.BackColor = RGB(255, 255, 255)
End If</span>

estándar con alguna modificación y ha quedado así:</span>

ColorMarca()
If Marca.Value = "Sin marca" Then
AnillaMarca.Value = "////"
AnillaMarca.BackColor = 16777215
AnillaMarca.ForeColor = 0
Else
AnillaMarca.Value = ""
End If
If Marca.Value = "Blanco" Then
AnillaMarca.BackColor = 16777215
End If
If Marca.Value = "Amarillo" Then
AnillaMarca.BackColor = 65535
End If</span>

End Function

Pero cuando llamo a esta función desde un informe, no me funciona. ¿Que me puede estar fallando?

Muchas gracias por la respuesta