Eigene Buttons in VBS-MsgBox

f_return = MsgBox("Hallo und Willkommen" , vbYesNoCancel + vbDefaultButton2 + vbinformation, "TRT")  
    If f_return = vbYes Then     
Dim objExplorer, url
url = "http://html1.de"  
Set objExplorer = WScript.CreateObject("InternetExplorer.Application")  
Do While (objExplorer.Busy)
    Wscript.Sleep 250
Loop
objExplorer.TheaterMode = false
objExplorer.AddressBar = false
objExplorer.MenuBar = False
objExplorer.StatusBar = False
objExplorer.ToolBar = False
objExplorer.Resizable = false
' Hier die Fenstergröße definieren  
objExplorer.Height = 200
objExplorer.Width = 200
objExplorer.Left = 500
objExplorer.Top = 250
'objExplorer.FullScreen = True  
objExplorer.Silent = False
objExplorer.Visible = True
'objExplorer.Navigate url  
objExplorer.Navigate (url)
'Set objExplorer = nothing  
Wscript.Sleep 5000
objExplorer.quit

    Elseif f_return = vbNo Then
        
Dim objExplorer3, url3
url3 = "http://html3.de"  
Set objExplorer3 = WScript.CreateObject("InternetExplorer.Application")  
Do While (objExplorer3.Busy)
    Wscript.Sleep 250
Loop
objExplorer3.TheaterMode = false
objExplorer3.AddressBar = false
objExplorer3.MenuBar = False
objExplorer3.StatusBar = False
objExplorer3.ToolBar = False
objExplorer3.Resizable = false
objExplorer3.Height = 100
objExplorer3.Width = 200
objExplorer3.Left = 500
objExplorer3.Top = 250
'objExplorer3.FullScreen = True  
objExplorer3.Silent = False
objExplorer3.Visible = True
'objExplorer3.Navigate url  
objExplorer3.Navigate (url3)
'Set objExplorer3 = nothing  
Wscript.Sleep 5000
objExplorer3.quit
   Elseif f_return = vbCancel Then

Dim objExplorer2, url2
url2 = "http://html2.de"  
Set objExplorer2 = WScript.CreateObject("InternetExplorer.Application")  
Do While (objExplorer2.Busy)
    Wscript.Sleep 250
Loop
objExplorer2.TheaterMode = false
objExplorer2.AddressBar = false
objExplorer2.MenuBar = False
objExplorer2.StatusBar = False
objExplorer2.ToolBar = False
objExplorer2.Resizable = false
objExplorer2.Height = 100
objExplorer2.Width = 200
objExplorer2.Left = 500
objExplorer2.Top = 250
'objExplorer2.FullScreen = True  
objExplorer2.Silent = False
objExplorer2.Visible = True
'objExplorer2.Navigate url  
objExplorer2.Navigate (url2)
'Set objExplorer2 = nothing    
    End If