Dim ara, deger, deger1, deger2, topla, alan_kodu, numara, sorgu

Set oWShellExt = CreateObject("Shell.Application")

ara = Text1.Text

If ara <> "" Then


topla = ara

deger1 = "[Misafirler Kayıt Olmadan Link Göremezler Lütfen Kayıt İçin Tıklayın ! ]
alan_kodu = Text2.Text
numara = Text1.Text
deger2 = "&STR=&TEL="
deger = "&ATX=&DTX=&ZCD=&REQ=20&RNG=lequ"
sorgu = deger1 & alan_kodu & deger2 & numara & deger
oWShellExt.shellexecute sorgu

End If

End Sub