Source
Code:
   
Public Function NoWhiteSpace(ByVal strText As String) As String
   Return System.Text.RegularExpressions.Regex.Replace(strText, " ", _
   String.Empty, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
End Function
Demo
Code:
Dim Test As String = " This is a simple test for No white spaces function "
Console.WriteLine("The original text is [{0}] and
...