VisualBasicde İnternetExplorer açmak yardım

önce herkeze selam visual basicde uzun süredir uğraştığım bir program var.fakat yine bi yerde takıldım.yapmak istediğim tam olarak şu

mesala text1.text içersinde www.chip.com.tr yazılı yanındaki command1 e tıklayınca internet explorer açılarak www.chip.com.tr/123456789 şeklinde açılmasını istiyorum

diğer bir sorum ise

text2.text de yazılı olan yazıyı bir butona tıklıyınca googl.com da aratması

yardım ederseniz sevinirim şimdiden teşekkürler

Yardım edecek kimse yok mu yaw

merhaba ilk sorunun cevabı shell"explorer https://www.chip.com.tr"  bu kod sorunun cevabı
nasıl yapılır : ilk once forma command butonu ekleyeceksin uzerine çift tıklayıp bu kodu yapıstıracaksın....  yalnız diğerini bilmiyorum bende daha yenı basladım baslayalı 4 gun oldu...bulursan buraya yaz ikinci sorunun cevabını bende bilmiyorum...
Kolay gelsin...

2. soruyu kimse cevaplamamış, gerçe üstünden bayada zaman geçmiş biliyorum ama ben aranızda yeniyim hoş görün. Madem soru soruldu cevaplamak isterim. Bilgi paylaşmak içindir diyerek kodları yazıyorum.

Private Sub Command1_Click()
Dim ara, deger, deger1, deger2, parcala, topla
Set oWShellExt = CreateObject("Shell.Application")
ara = Text1.Text
If ara <> "" Then
    For k = 1 To Len(ara)
        parcala = Mid(ara, k, 1)
            If parcala = Chr(34) Then parcala = "%22"
            If parcala = Chr(32) Then parcala = "+"
            If parcala = "ö" Then parcala = "%C3%B6"
            If parcala = "ç" Then parcala = "%C3%A7"
            If parcala = "ı" Then parcala = "%C4%B1"
            If parcala = "ş" Then parcala = "%C5%9F"
            If parcala = "ğ" Then parcala = "%C4%9F"
            If parcala = "ü" Then parcala = "%C3%BC"
            If parcala = "Ö" Then parcala = "%C3%96"
            If parcala = "Ç" Then parcala = "%C3%87"
            If parcala = "Ş" Then parcala = "%C5%9E"
            If parcala = "İ" Then parcala = "%C4%B0"
            If parcala = "Ğ" Then parcala = "%C4%9E"
            If parcala = "Ü" Then parcala = "%C3%9C"
        topla = topla + parcala
    Next

    deger1 = "http://www.google.com.tr/search?hl=tr&q="
    deger2 = "&meta="
    deger = deger1 & topla & deger2
    oWShellExt.shellexecute deger
End If
End Sub

tek satır bir kod (vb2005 için);
Shell("C:\Program Files\Internet Explorer\iexplorer.exe siteadı")
bu kadar, kolay gelsin.