Non-Blank Space Extension Method

After struggling with this I’ve manage to get my emails (HTML Body) etc. working much better.

Public Function ReplaceNBSP(Extends value As String, html As Boolean = False) As String
  Static NBSP As String
  
  If NBSP = "" Then
    NBSP = ChrB(&hE2) + ChrB(&H80) + ChrB(&HAF) 
  End If
  
  If html Then
    Return value.ReplaceAll(NBSP, " ")
  Else
    Return value.ReplaceAll(NBSP, " ")
  End If
  
End Function

5 posts - 2 participants

Read full topic