I have been using this function in a utility to provide a GUI to select a file and pass that file name to be processed.

 Code:
Function SelectFile()
	Dim $objSHELLexec, $CMD, $objSHELL
	$SelectFile=""
	$CMD='mshta.exe "about:< input type=file id=FILE><script>FILE.click();new ActiveXObject("Scripting.FileSystemObject").GetStandardStream(1).WriteLine(FILE.value);close();resizeTo(0,0);</script>" '
	$objSHELL=CreateObject("WScript.Shell")
	$objSHELLexec=$objSHELL.Exec($CMD)
	$SelectFile=$objSHELLexec.StdOut.ReadLine()
EndFunction


Now that I updated a PC from 23H2 to 25H2, the above function is no longer viable so I am seeking another function to do likewise usable in Win11 25H2.