Public Function DisplayWhitepages(strLastName As String, _
strFirstName As String, _
strMiddleInitial As String, _
strCity As String, _
strState As String) as string
Dim strURL As String
strURL = "[URL unfurl="true"]http://www.whitepages.com/cgi/find_person_results.cgi?"[/URL] & _
"&f=" & Replace$(Trim$(strFirstName), " ", "+") & _
"&l=" & Replace$(Trim$(strLastName), " ", "+") & _
"&c=" & Replace$(Trim$(strCity), " ", "+") & _
"&s=" & Left$(strState, 2)
DisplayWhitepages = strURL
End Function