Excel function sending appointment

Excel 2007

I am using some excel code for a function that will send an appointment from excel to groupwise (emailing program used by Novell)

The code is working, however I do not know how to send arguments from the spreadsheet

Here is the code as it sits now:

Function SendAppt()
    Set objApp = CreateObject("NovellGroupWareSession")
    Set objAccount = objApp.Login("", "")
    ' Get some objecte for later use
    Set objRootFolder = objAccount.RootFolder
    Set objAddressBook = objAccount.SystemAddressBook
    Set objAddressBookEntries = objAddressBook.AddressBookEntries
    Dim objDraftMsg
    
    'Message & Header
    Set objDraftMsg = objAccount.WorkFolder.Messages.Add("GW.MESSAGE.APPOINTMENT")
    
    objDraftMsg.StartDate = Now ' appointment starts now
    objDraftMsg.Duration = 1 / 24 * Hours ' duration set to 1 hour
    objDraftMsg.OnCalendar = True
    objDraftMsg.Place = "My Office"

    objDraftMsg.Subject = "Text2"         ' Subject
    objDraftMsg.BodyText = "Text4"        ' Body
    
    'Setup Recipients & Send Message
    objDraftMsg.Recipients.AddByDisplayName (objAccount.Owner.DisplayName) ' to self
    objDraftMsg.Send
End Function

I want the function to take information from the spreadsheet I've attached when sending the appt:

for example:
objDraftMsg.StartDate would be the date showing in column G (Event Date)
objDraftMsg.Subject would be column B (H Number)
objDraftMsg.Recipients.AddByDisplayName would be column M (Analyst)

the body of the appt would consist of a template:

There is a Teleconference Event scheduled for the following:
Unit: 484401800 (column c)
Location: 15 Fish St (column d)
Teleconference: 1-555-234-5545
Entry code: 622335#
Please phone in five minutes prior to the indicated start time.


How do you put the variables such as describe through to an appt?