I'm using the below code to add links to a webpage. However, VB is taking it upon itself to underline all of the links. Is there a way around this, so the links are not underlined?

'code'

Dim SN As Variant
Dim URL As Variant

SN = Data2.Recordset.Fields("SiteName")
URL = Data2.Recordset.Fields("MainURL")

Print #1, " <a href=" & URL & ">" & SN & "</A><BR><BR> "

'code'

That is the jist of it. Any suggestions?