Solved: Division with remainder

[austenr]

Using the following code (straight VB) how would you change is to make the txtAnswer.Text text box read for instance "4 remainder 7" rounding it up or down depending.

[VBA]
If chkDivide.Checked = TrueThen
decAnswer = decFirstInputNumber / decSecondInputNumber
txtCalcFirstNumber.Text = txtFirstNumber.Text
txtCalcSecondNumber.Text = txtSecondNumber.Text
txtOperator.Text = ("/")
txtAnswer.Text = decAnswer.ToString
EndIf
[/VBA]

[Bob Phillips]

How about this

[vba]

If chkDivide.Checked Then
decAnswer = decFirstInputNumber / decSecondInputNumber
txtCalcFirstNumber.Text = txtFirstNumber.Text
txtCalcSecondNumber.Text = txtSecondNumber.Text
txtOperator.Text = ("/")
txtAnswer.Text = (decFirstInputNumber \ decSecondInputNumber) & _
" remainder " & _
(decFirstInputNumber Mod decSecondInputNumber)
End If
[/vba]

[austenr]

Spot on as usual Bob. Thanks