Function MetinVeriBul(GMetinTumu As String, GIlkKelime As String, GIkinciKelime As String) As String

Dim lngIlkKelime As Long

Dim lngIkinciKelime As Long



lngIlkKelime = InStr(1, GMetinTumu, GIlkKelime, vbTextCompare)



If lngIlkKelime > 0 Then



    lngIlkKelime = lngIlkKelime + Len(GIlkKelime)

    lngIkinciKelime = _

    InStr(lngIlkKelime, GMetinTumu, GIkinciKelime, vbTextCompare)

    

    If lngIkinciKelime > 0 Then

        MetinVeriBul = Mid$(GMetinTumu, lngIlkKelime, (lngIkinciKelime - lngIlkKelime) + 1)

               

    Else

        MetinVeriBul = vbNullString

    End If

    

Else



    MetinVeriBul = vbNullString

End If





End Function



Function StripText(str As String) As String

  For i = 1 To Len(str)

    b = Mid(str, i, 1)

    Select Case b

      Case "a" To "z", "A" To "Z", " ", "-"



        StripText = StripText & b

    End Select

  Next

StripText = Replace(StripText, "value", "")

End Function

üstteki kodları Vba sayfasında en alta ekle.

Me.SMS=WebBrowser.Document.getElementById("ddlSMSBilgilendirme").Value

yerine

Dim GVeri as integer

GVeri = WebBrowser.Document.getElementById("ddlSMSBilgilendirme").innerhtml

GVeri = MetinVeriBul(GVeri , "selected", "</OPTION>")

Me.SMS= StripText(GVeri)

kodu ekle.