حرف و عدد داخل مسیج باکس

[taha1371 84]

سلام من میخوام پیامی که تومسیج باکس میاد  جمع دو عدد که داخل ادتکس وارد میشه  وتومان باشه باید چه کنم

	Dim m1 As  Double 
	Dim m2 As  Double
    Dim res As String
	If (EditText1.Text <> "" And EditText2.Text <>"") Then
    m1 = EditText1.Text
    m2 = EditText2.Text
	res = (m2+m1)
	
	Msgbox("فی",res)
	Else 
		 Msgbox2("عددی را وارد نکردید!","خطا","", "باشه","",Null
	End If

 

[agha sasan 82]

کار سختی نیس نیاز به تعریف دابل هم نیس به اینصورت بنویسید:

msgbox(EditText1.Text + EditText2.Text &" تومان","massage title")