tarihin aktarılacağı metin kutusunun ismi: mtn_dogumtarihi
kullanılacak kod:
Dim tarih As String
tarih = Me.WebBrowser1.Document.getElementByID("dogumTarihi").innerhtml
tarih = Mid(tarih, InStr(1, tarih, " ") + 1)
tarih = Replace(tarih, """>", "")
Me.mtn_dogumtarihi = Replace(tarih, "nbsp;: ", "")