Cube World crappy launcher.vbs

result = MsgBox ("Start Cube World?",  vbYesNoCancel, "Cube World")
Dim objShell
Select Case result
Case vbYes

    Set objShell = WScript.CreateObject( "WScript.Shell" )
    objShell.Run("Cube.exe")
    Set objShell = Nothing

Case vbNo
    result2 = MsgBox ("Start Cube World Server?",  vbYesNo, "Cube World Server")
    if(result2 = vbYes) then
        Set objShell = WScript.CreateObject( "WScript.Shell" )
        objShell.Run("Server.exe")
        Set objShell = Nothing
    end if
End Select