Private Sub Komut1_Click()

    Dim ie As Object, sag As Object, olu As Object

    Set ie = CreateObject("internetexplorer.application")

    

    With ie

        .Visible = False

        .Navigate CurrentProject.Path & "\radiogrupal.html"

        Do While .Busy: DoEvents: Loop

        Do While .ReadyState <> 4: DoEvents: Loop

    End With

    Set sag = ie.Document.getelementbyid("rdSag")

    Set olu = ie.Document.getelementbyid("rdOlu")

    If sag.Checked Then MsgBox "Sag secili"

    If olu.Checked Then MsgBox "Ölü secili"

    ie.Quit

    Set ie = Nothing: Set sag = Nothing: Set olu = Nothing

End Sub