در صد گرفتن

[taha1371 84]

 سلام من این کدو نوشتم و میخوام عددی که به m4 داده میشه درصد اون عدد باشه یعنی اگر کاربر عدد 5 گزاشت تو ادیت تکس +5درصد بشه 

Sub sum_Click
	If (EditText1.Text <> "" And EditText2.Text <> "") Then
	m1 = EditText1.Text
    m2 = EditText2.Text
    m3 = EditText3.Text
    m4 = EditText4.Text
	res = ((m2+m3)*m1)+ m4
	Msgbox(res,"جمع")
	Else 
		Msgbox("عددی وراد نشده است","خطا")
	End If
End Sub