+Divide the two values and take the floor which will give you just the integer whole number.

+Use mod as you indicated to get the integer remainder.

```
Dim x As Decimal = 100
Dim y As Decimal = 13
Dim intQuotientWholeNbr As Integer = Math.Floor(x / y)
Dim intQuotientRemainder As Integer = x Mod y
MsgBox(String.Format("{0} divided by {1} is {2} with a remainder of {3}.", x, y, intQuotientWholeNbr, intQuotientRemainder))
```