مشکل در ارسال پیامک از طریق intent

سلام  دوستان . من در ارسال پیامک از طریق intent  دچار مشکل شدم.من کدهای زیر را نوشتم  .
Sub Button1_Click
Dim In As Intent
In.Initialize(In.ACTION_VIEW,”sms”&EditText1.Text)
In.PutExtra(“sms body”, EditText2.Text)
StartActivity(In)
End Sub
که وقتی برنامه اجرا میشود  و شماره تلفن و متن را میدهم برنامه خارج میشود وارور زیر را  میدهد.

android.content.ActivityNotFoundException: No Activity found to handle Intent { act=android.intent.action.VIEW dat=sms09123220000 flg=0x20000 (has extras) }

ممنون میشوم راهنمایی بفرمایید.