Sub Oeffne_RengEDV()
    Dim URL As String
    Dim WebAdresse As Object
      
    URL = "https://www.reng-edv.de"
    
   
    Set WebAdresse = CreateObject("WScript.Shell")
    WebAdresse.Run URL
    
    Set WebAdresse = Nothing
End Sub

Sub main()
    Oeffne_RengEDV
End Sub