VBA Code to disable signature in Lotus Notes

Good morning,
I have taken several samples of code from Internet and tweaked/added my own to it. The code I have will open a Memo and fill in the subject, send to field, and attach files without sending until user presses button within Lotus.
Here is the code:

Sub LotusNotsSendActiveWorkbook()
'Send an e-mail & attachment using Lotus Not(s)
'Declare Variables for file and macro setup
Dim UserName As String, MailDbName As String, ccRecipient As String, attachment1 As String
Dim Maildb As Object, MailDoc As Object, AttachME As Object, Session As Object
Dim EmbedObj1 As Object


With Application
.ScreenUpdating = False
.DisplayAlerts = False

' Open and locate current LOTUS NOTES User
Set Session = CreateObject("Notes.NotesSession")
UserName = Session.UserName
MailDbName = _
Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
Set Maildb = Session.GETDATABASE("", "")
If Maildb.IsOpen = True Then
Else
Maildb.OpenMail
End If

' Create New Mail and Address Title Handlers
Set MailDoc = Maildb.CreateDocument
MailDoc.Form = "Memo"
' Select range of e-mail addresses
'ccRecipient = Sheets("EmailSheet").Range("B2").Value
' Or send to a signle address
MailDoc.Sendto = "bob@ibm.com"
MailDoc.CopyTo = ccRecipient
' Subject & Body stored in a**worksheet
'MailDoc.Subject = Sheets("EmailSheet").Range("C2").Value
' MailDoc.Body = Sheets("EmailSheet").Range("ENTER CELL OF BODY").Value
' These can be entered here manually instead
MailDoc.Subject = "Check this out!"
MailDoc.body = "Cool huh?"

' Select Workbook to Attach to E-Mail
MailDoc.SaveMessageOnSend = True
'MsgBox ActiveWorkbook.FullName
attachment1 = "C:\test.xls"
If attachment1 <> "" Then
On Error Resume Next
Set AttachME = MailDoc.CREATERICHTEXTITEM("attachment1")
Set EmbedObj1 = AttachME.EmbedObject(1454, "", attachment1)
On Error Resume Next
End If

attachment2 = "c:\test.bat"
If attachment2 <> "" Then
On Error Resume Next
Set AttachME = MailDoc.CREATERICHTEXTITEM("attachment2")
Set EmbedObj1 = AttachME.EmbedObject(1454, "", attachment2)
On Error Resume Next
End If

'Displays email message without sending; user needs to click Send
Set workspace = CreateObject("Notes.NotesUIWorkspace")
Call workspace.EditDocument(True, MailDoc).GOTOFIELD("Body")


Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj1 = Nothing

.ScreenUpdating = True
.DisplayAlerts = True
End With

errorhandler1:

Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj1 = Nothing

End Sub

Select allOpen in new window

The problem is the body text is inserting directly after the Lotus Notes signature. I know, why not disable the signature in Lotus Notes. The problem is, this is being sent from a group box and I cannot disable it for all users. So my thought is I need some code that will eithe empty the body text (delete the signature) and then I can create the signature for the email directly in VBA. Or can I move the bodytext above the signature from within VBA?

Thank you in advance for your time and effort,
Josh