مشكلة في كود المتوسط

[مفقودة]

السلام عليكم

واجهتني مشكلة في كود برنامج لحساب متوسط 3 اعداد...حيث انه لايقوم بحساب المتوسط بل يظهرلي الناتج باعداد كبيرة

وهذا الكود .

Private Sub Command1_Click()
Dim a, b, d, m As Integer
a = Text1.Text
b = Text2.Text
d = Text3.Text
m = a + b + d / 3
Text4.Text = m
End Sub

هيييييييييلللللللللب مي بلييييييييييييز