do this:
zspeed=MouseZSpeed() If KeyDown(42) and zspeed CAM1_ZoomValue#=CAM1_ZoomValue# + zspeed CameraZoom CAM1,CAM1_ZoomValue# End If