Question : Underlining text?

I have the below code... that works but I need "Take Notice" to be underlined.... is there a built-in function that I can pass this text and then concatinate onto the rest of the string?  This is the current code:

txtEffectiveDates.Value = "Take Notice that on or after the " & Format([txtDate], "dd") & " day"

Answer : Underlining text?

No. you have to underline the whole line by setting the Control's Font Underline property to Yes in the design view of the form