I am not sure what event you want to do this with. Can you explain more of what you want?
You can take a value from anywhere like this, and then make it part or all of your caption, like this:
sValue = InputBox("Please enter a value"
Me.Caption = sValue