i found a solution
The sql server security is change some characters
when read data from db and the function works
Function htmlyecevir(ByVal a As Object)
Dim strout As String = a
strout = Replace(strout,
"<", "<")
strout = Replace(strout,
">", ">")
Return strout
End Function