webden koşullu veri aktarma

[chakistes]

merhaba arkadaşlar aşağıdaki kodda ddlVelisi seçince excelde R sütununa Babası 1 Annesi 2 olarak yazmaktadır 2 den büyük olursa modülde bulunan velibilgitıkla seçmesini istiyorum.
Sheets("Anasayfa").Range("R" & satır).Value = UserForm1.WebBrowser1.Document.getElementById("ddlVelisi").Value