割り算を減算（引き算で）行うプログラムを作っています。

［ Text1 ］ ÷　［ Text2 ］　＝　［ Text3 ］　余り　［ Text4 ］

のように表示させるのですが、例えば、３５÷６をしたときに、
答えが、Text3＝１　Text4＝２９　になってしまいます。
どうすればいいのでしょうか？
よろしくお願いします。　なお、僕の考えたプログラムは以下の通りです。
（※”＝”部分がコマンド１です）

Private Sub Command1_Click()
M = Text1.Text
N = Text2.Text
sho = 0

Do
M = M - N
sho = sho + 1
Loop While M >= N

Text3.Text = sho
Text4.Text = M
End Sub

結局、どうすればいいのでしょうか？？
教えてください！！