تقسيم دو عدد با استفاده از عملگر تفريق

[آرمان]

سلام دوستان
برنامه اي به زبان ويژوال بيسيك كه حاصل تقسيم دو عدد را با استفاده از عملگر تفريق محاسبه كند.
راهنمايي(برنامه مشابه كه براي ضرب با عملگر جمع نوشتم)
Private Sub Command1_Click()
Dim a, b, c As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
c = 0
For i = 1 To b
c = c + a
Next
Text3.Text = c
End Sub