How do i take the "BodyText" of an email form and apply it to a created txtfile?

example:
==========================================================
Function mscsexecute(config, orderform, context, flags)
Dim mscsMessageManager, mscsDataFunctions
Set mscsMessagemanager = context.MessageManager
Set mscsDataFunctions = context.DataFunctions
Dim CDoObject
Dim tempConfig
Dim toEmail

set tempConfig=config
toEmail=tempConfig.toemail
fromEmail=tempConfig.fromEmail

BodyText = BodyText & " Name: " & orderform.[ship_to_name] & vbCR
BodyText = BodyText & "Address: " & orderform.[ship_to_street] & vbCR
BodyText = BodyText & " City: " & orderform.[ship_to_city] & vbCR
BodyText = BodyText & " State: " & orderform.[ship_to_state] & vbCR
BodyText = BodyText & " Zip: " & orderform.[ship_to_zip] & vbCR


if toEmail <> "" then
Set CDoObject=CreateObject("CDONTS.NewMAIL")
CDoObject.From=fromEmail
CDoObject.To=toEmail
CDoObject.Subject="Commerce Site Order"
CDoObject.Body=BodyText
CDoObject.Send
Set CdoObject=nothing

end if
========================================================== How can I get all of the BodyText info to write to a textfile?