Android Question open sms page and send phne number and text for send

Sub btn_Share_Click
    Dim in As Intent
    in.Initialize(in.ACTION_VIEW, "sms:")
    in.PutExtra("sms_body", "Have you seen the fabulous Blackwoods Pub Mobile App ?"&CRLF&CRLF&"Download the app now by clicking on the link below and then look out for awesome specials on the app"&CRLF&CRLF&"https://goo.gl/Pzvrej")
    StartActivity(in)
End Sub