to come up in txtbox instead of msg box

[Bilal]

i have these lines of code

TodaysDate = TheDate
Msg = "Months from today: " & DateDiff("M", DOB, Now)
MsgBox Msg
End Sub

Its very simple and it works however the last line 'MsgBox Msg' just shows the number up in a msg box ive tried changing it to txtbox msg, but it doesnt seem to work. help, anyone?

 

[bob fitz]

Try:
= "Months from today: " & DateDiff("M", DOB, Now)
as the Control Source property of the text box

EDIT:
Or:
= "Months from today: " & DateDiff("M", DOB, Now())