How to convert this vbscript in HTA ?

Hi :wave:
I want to make a small dialog box asking for a few options, and then I want to take those options and send them via e-mail with attachment.
I already have a VBS script that sends e-mail, and I need to use HTA for my form.
How can I combine the VBS script into my HTA, or how can I pass the HTA values to my VBScript?
Here is my mail VBScript:

Code:

---

sub main()
Dim messageHTML
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = [stuff from the HTA]
objMessage.From = [stuff from the HTA]
objMessage.To = [stuff from the HTA]
objMessage.TextBody = [stuff from the HTA]
File= [stuff from the HTA] 'path of attachement
messageHTML="This an example in HTML sended by hackoo"
 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = [stuff from the HTA]
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update

objMessage.HTMLBody="<center><font size=4 FACE=Tahoma Color=red>"&messageHTML&"<br><br><img src=http://photomaniak.com/upload/out.php/i1102064_IDNlogo.gif>"
objMessage.AddAttachment(File) ' adding Attachment
objMessage.Send
 
        If Err.Number <>0 Then
                        MsgBox Err.Description,16,"Error"
                        msgbox "The mail isn't sended !",16,"Information"
                Else
                msgbox "The mail is sended sucessfully !",64,"Information"
        End If
                On Error GoTo 0
 end sub
Call main

---

Thank you !
Best Regards !