Merhaba.
Eğer selenium kullanırsanız alttaki kod işinize yarayabilir.
Başka yöntem bilmiyorum.

Private Sub Komut0_Click()

    Dim baglan As New Selenium.WebDriver

    Dim olu As Boolean, sag As Boolean

    

    baglan.AddArgument "-headless"

    baglan.Start "chrome"

    baglan.Get CurrentProject.Path & "\radiogrupal.html"

    olu = baglan.FindElementByXPath("//*[@id='rdOlu']").IsSelected

    sag = baglan.FindElementByXPath("//*[@id='rdSag']").IsSelected

    If olu = True Then MsgBox "isaretli olan: Ölü"

    If sag = True Then MsgBox "isaretli olan: Sag"

    baglan.Close

    Set baglan = Nothing

End Sub