How to write text in Outlook appointment body in two columns in VBscipt?

I have a Vbscript which makes an appointment invitation from Outlook. I need to write some text in two columns in Objappointment.Body (it should be adaptive) . Can you please say me how to do that?

For example, I need something like that:

THIS IS MY CODE:

Const olAppointmentItem = 1

Const olMeeting=1

Const olWorkingElsewhere=4

Dim myRequiredAttendee

Dim date

Set objOutlook = CreateObject("Outlook.Application")

Set objAppointment = objOutlook.CreateItem(olAppointmentItem)

objAppointment.MeetingStatus = olMeeting

objAppointment.Subject="lalala"

objAppointment.Location="lalala"

date=WScript.Arguments(0)

objAppointment.Start=date

objAppointment.Body= WHAT TO WRITE HERE