vba ile ais osym.gov.tr sitesine bağlanabilmek

Merhaba arkadaşlar hepimizin ara ara kullandığı https://ais.osym.gov.tr sitesine bağlanmaya çalıştım fakat yapamadım. T.C. kimlik ve şifre ile ekranına giriş yapamıyorum. örnek kullandığım kod aşağıdaki gibidir.
Private Sub CommandButton1_Click()
Set evn = CreateObject("internetexplorer.application")
With evn
evn.Visible = True
.Navigate "https://ais.osym.gov.tr" ' HEDEF SİTE
Do While .Busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop
With .Document.all
.TcKimlikNo.Value = Range("b1").Value
.Password.Value = Range("b2").Value
End With
End With
End Sub