Set objFSO = CreateObject("Scripting.FileSystemObject")
Set studioDirectory = Nothing

Sub Run(ByVal sFile)
Dim shell

    Set shell = CreateObject("WScript.Shell")
    shell.Run Chr(34) & sFile & Chr(34), 1, false
    Set shell = Nothing
End Sub

For Each subfolder In objFSO.GetFolder("C:\Program Files (x86)\Roblox\Versions\").SubFolders
    For Each file In objFSO.GetFolder(subfolder).Files
        If file.Name = "RobloxStudioBeta.exe"  Then
            Set studioDirectory = subfolder
        End If
    Next
Next

If Not studioDirectory Is Nothing Then
    Run studioDirectory & "\RobloxStudioBeta.exe"
Else
    Wscript.Echo "RobloxStudioBeta.exe was not found"
End If