Run a Function witha Sub statement

[lugnutmonkey]

I have a function provided to me by another forum member. It allows me to add notes to a report through an input box by having a text box in the report that has its data property set to = GetNotes().

Function GetNotes()
GetNotes = InputBox("Enter the notes for  the report " & vbNewLine & "For Ex. This are report notes", "Enter notes")
End Function

Unfortunalty, when I put it into a report it runs continuosly. So that I end up having an input box popping up as soon as I close the first one. I would like to have the function only run when a button is clicked. In VB the code to have an action occur on a button click is:

Private Sub Command30_Click()
End Sub

Can anybody help set up this function to only run when the botton is clicked?

[pbaldy]

Private Sub Command30_Click()
Something = GetNotes()
End Sub

[lugnutmonkey]

But where would I put the code for the function "GetNotes"?

[pbaldy]

Typically in a standard module so you can call it from anywhere.

[lugnutmonkey]

thank you, your assistance is greatly appreciated.

[pbaldy]

Happy to help!