Damn =(
it takes ages to convert 34 kb using my sub.
code:
Function Char2HTML(ByVal sString As String) As String
Dim i As Long, sTemp As String, l As Byte, sTemp2 As String
sTemp2 = Replace(sString, Chr(10), vbNullString, , , vbTextCompare)
For i = 1 To Len(sTemp2)
l = AscB(Mid$(sTemp2, i, 1))
If l = 13 Then
sTemp = sTemp & "<br>"
Else
sTemp = sTemp & "&#" & CStr( l) & ";"
End If
Next i
Char2HTML = sTemp
End Function
help?
