I would suggest looking at the MsgBox function here. Also, information on the Run function. Both have examples showing what you're asking for.
If MsgBox("Would you like to eject the CD drive?", vbYesNo + vbQuestion) = vbYes Then
'Code to eject the CD drive
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "C:\Path\To\File.exe" 'Run normal file
objShell.Run "wscript.exe C:\Path\to\File.vbs" 'Run VBScript
End If