Así por simple, podrías hacer algo como esto:
Linea 8: Me redondea el valor, lo hice a lo cavernicola y lo converti a string, tomo el primer valor y despúes converti a entero.
Public Sub Init()
Call PrintSticker(480, 100)
End Sub
Public Sub PrintSticker(CantMAX As Integer, CantLote As Integer)
Dim CantRest As Integer
Dim Box As Integer
Box = CInt(Left(CStr(CantMAX / CantLote), 1))
CantRest = CantMAX Mod CantLote
MsgBox "Numero de cajas: " & Box & ". Residuo: " & CantRest
End Sub
' Numero de cajas: 4. Residuo: 80
Esperad los magos del VB que te den otra más optimizada.