Can VBA screen scrape MS Edge without using Selenium? - vba

Question

I'm using the code below to scrape IE and need to update it to work with Edge. Everything I've found on the topic says to use Selenium but wouldn't every user need to install the Selenium libraries? Is Selenium the only option?
I tried using this same code to look for the Edge window but for some reason it doesn't show up in the Windows collection.
Public Function ReadIEText() As String
If HANDLE_ERRORS Then On Error GoTo ErrHandler
Dim objInstances As Object
Dim objIE As Object
Dim strTxt As String
Dim strName As String
Set objInstances = CreateObject("Shell.Application").Windows
If objInstances.COUNT > 0 Then '/// make sure we have instances open.
For Each objIE In objInstances
strName = ""
'Not all windows will have the FullName property
'need to ignore the error by resuming next line
On Error Resume Next
strName = objIE.FullName
' If HANDLE_ERRORS Then On Error GoTo ErrHandler
'See if the window is IE
If Right(strName, 12) = "IEXPLORE.EXE" Then '/// it's internet explorer not windows explorer.
'See if CACS
If Left(objIE.LocationURL, 17) = "https://collectna" Then
'Get the text from the CACS window
strTxt = objIE.Document.frames("mainframe").Document.Body.InnerText
'If the CPR GUI wasn't found try the main document
If InStr(strTxt, "CPR") = 0 Then
'Get the text from the CACS window
strTxt = objIE.Document.Body.InnerText
End If
'Exit loop once CPR GUI view is found
If InStr(strTxt, "CPR") <> 0 Then Exit For
End If
End If
Next
End If
'Return the text from the CACS window
If InStr(strTxt, "CPR") > 0 Then ReadIEText = strTxt
ExitProc:
'Close the Object when done with it!
Set objInstances = Nothing
Set objIE = Nothing
Exit Function
ErrHandler:
RecErr Err.Number, Err.Description, "frmAccountView", "ReadIEText"
Resume ExitProc
End Function