Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)

'kod

End Sub

sayfa yüklendiğnde kod çalışır, tc kimlik no sorgululama örneklerinden birinde muhtemelen kullandım.