Merhaba arkadaşlar,
aşağıdaki kur alış koduna dolar effektif alış ve effektif satışı nasıl ekleyebilirim.?

Sub GünlükKurlar()

Dim strPathB As String

Dim IEb As Object

Dim tempB As Variant



strPathB = "http://www.tcmb.gov.tr/kurlar/today.html"



 Set IEb = CreateObject("InternetExplorer.Application")

 With IEb

 .Navigate strPathB

 Do Until IEb.ReadyState = 4: DoEvents: Loop

 

 temp = IEb.Document.All.Item.innerHTML

 End With

 Me.txtGünlükDolarAlış = Val(Replace(Mid(temp, InStr(temp, "USD") + 42, 6), ",", ""))

 Me.txtGünlükDolarSatış = Val(Replace(Mid(temp, InStr(temp, "USD") + 55, 6), ",", ""))

 Me.txtGünlükEuroAlış = Val(Replace(Mid(temp, InStr(temp, "EUR") + 42, 6), ",", ""))

 Me.txtGünlükEuroSatış = Val(Replace(Mid(temp, InStr(temp, "EUR") + 55, 6), ",", ""))

 Set IEb = Nothing

 Me.Liste6.Requery

 DoCmd.Requery



End Sub