Hi
I have an option button which provides an Input Box once selected.

What I would like to know if there is some way I can refer to the
information provided to the input box in another Sub.

ie
First person selects opt button and they enter the information into an input
box called stMessage, When all other details on the form are entered the
person selects a command button called Email to send attach the form to an
email and send.

But I also need to add the information stored in stMessage to go into the
main body of the email.

What I dont know how to do is to pick-up the stMessage from the opt button
and use it in the command button sub.

Following is the Code I have

Private Declare Function Message _
Lib "optAllComm" Alias "EmailMessage" _
(ByVal lpEmail As String, nSize As Long) As Long


Function EmailMessageA()

Dim lpEmail As String
Dim lngret As Long

EmailMessageA = lpEmail

End Function

Private Sub optAllComm_Click()

Dim stMessage As String

stMessage = Application.InputBox("Comments")

End Sub


Private Sub cmdActioned_Click()


Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)

With OutMail
.To = stName
.CC = ""
.BCC = ""
.Subject = "QRP Actioned, No is " & stqrp
.Body = stName & "," & vbNewLine & EmailMessageA & vbNewLine &
vbNewLine
.Attachments.Add ActiveWorkbook.FullName
.Send 'or use .Display
End With


Set OutMail = Nothing
Set OutApp = Nothing

End Sub

Any help would be great.
Thanks
Noemi