replace functionen i sig gillar inte att få in ett null-värde.
Testa denna variant på din funktion:
Function Newline(strText)
'## -- kontrollera så att det finns något i strText. Om inte hoppa ur funktionen --
If Len(strText) = 0 Then Exit Function
strText = Replace(strText, vbCrLf, "<br>")
NewLine = strText
End Function