try this way
Dim q1 As String = DateTime.Now.To LongDateString + "<br />"