HOW USE SAVE AS IN VBSCRIPT

anybody can help me with this problem. I need convert this code in VBScript.

Sub Open_HTML_Save_XLSX()

     Workbooks.Open FileName:="C:\Users\sacaar24\Desktop\DataMail\MailMessage.html"
     ActiveWorkbook.SaveAs FileName:= _
        "C:\Users\sacaar24\Desktop\DataMail\MailMessage.xlsx", FileFormat:= _
        xlOpenXMLWorkbook
End Sub