Greeting,

I have the following code for showing text in textbox as follows:

On Error GoTo 10
TextBox1.SetFocus
10
If TextBox1 < "" And TextBox2 < "" Then
TextBox1 = TextBox1 & "" & Chr(10) & "" & Now & " :" & Chr(10) & "" &
Trim(TextBox2)
ElseIf TextBox1 = "" And TextBox2 < "" Then
TextBox1 = Now & " :" & Chr(10) & "" & Trim(TextBox2)
End If
TextBox2 = ""
TextBox2.SetFocus

What I need is to format the €œNow€� to be bold and under line, how can I do
that?