فتح صفحة نت بواسطة المتصفح

انا جايبلكم كود عشان نفتح صفحة نت بواسطة المتصفح من على البرنامج اللي بنعمله على الفيجوال بيسك

الكود يحتاج إلى زرين كوماند Command
وصندوق نص Text box

والكود

Private Sub Command2_Click()
Dim X As Object
Set X = CreateObject("InternetExplorer.Application")
X.Navigate Text1.Text
X.Visible = True
End Sub