Send Email with Field as subject?

I am looking to send an email to user(s) as a new record is submitted, I have the standard one that you can make with the "add action" but i am unsure how to place a field in as the subject line. Any help, I would appreciate it.
Dim dkeys, tmpDict, msg, n

msg =""
dkeys = values.keys

For n = 0 To values.Count-1

if not IsBinaryType(GetFieldType(dkeys(n),"")) then

msg = msg & dkeys(n) & " : " & values(dkeys(n)) & vbcrlf

end if

Next
set tmpDict = CreateObject("Scripting.Dictionary")

tmpDict("to")="email@email.com"

tmpDict("subject")="New Ticket"

tmpDict("body")=msg

set ret=runner_mail(tmpDict)

if not ret("mailed") then

response.write ret("message")

end if