Browseforfolder window stays underneath

Question

I work with Siemens WinCC and it offers the possibility to run simple VBS code. I have managed to open a folder selection window through "BrowseForFolder" but this window is below the SCADA that executes it, which is also executed full screen and should not allow the user going to the desktop (so, go to there and press the folder selection window icon is not an option). Any way to open this window always on top?.

Thankyou for your help.

Dim oFolder, BrowseForFolder
On Error Resume Next 

Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0,MsjInfo,0,0)
     
  If (oFolder Is Nothing) Then
    BrowseForFolder = Empty
  Else 
    BrowseForFolder = oFolder.Self.Path
  End If