It's been a few years since I did any VB6 programming and my question is can I have a clickable mailto:[email protected] in a text box that is dynamically driven?

Here is an example of some code the previous VB programmer did and I will need to make some updates.

Many thanks in advance.

Code:
'/////////////////// DROP DOWNS FOR DEMOGRAPHICS ANCHOR TENTANTS ////////////////////
Sub writeAnchorTenantsDisplay(ByRef objText As TextBox, sCenterId As String)

 
   Call CreateConnection
   Dim sReturn As String
      
   '////// THIS GETS THE HOUSEHOLD INFO
   Set objRs = New ADODB.Recordset
   objRs.ActiveConnection = objConn
   objRs.CursorLocation = adUseClient
   objRs.CursorType = adOpenForwardOnly
   objRs.LockType = adLockReadOnly
   objRs.Source = "select tenant_list.tenant,tenants.area from TENANTS inner join tenant_list on tenants.center_tenant_id=tenant_list.tenant_id where tenants.Center_Id = " & sCenterId & " Order by tenants.narea DESC"
   'MsgBox objRs.Source
   objRs.Open
   
   sReturn = ""
   sGAnchorTenants = ""
   If objRs.EOF Then
      'HANDLE THE ERROR
      'objText.Text = "No records found!"
   Else
      Do While Not objRs.EOF()
      
         sGAnchorTenants = sGAnchorTenants & sReturn & objRs.Fields!tenant & " - " & objRs.Fields!area & " sq. ft."
         sReturn = vbCrLf
      
         objText.Text = objText.Text & objRs.Fields!tenant & " - " & objRs.Fields!area & " sq. ft." & vbCrLf
         
         objRs.MoveNext
      
      Loop
   
   End If


   objRs.Close
   Set objRs = Nothing
   Call CloseConnection
   
End Sub