Regular expression che rimuove tutti i whitespace doppi (tabulatori, ritorni a capo, ecc.):

dim res as String = ""
' rimuove tutti i whitespace [\t\r\n\v\f] doppi
res = Regex.Replace(res, "\s{2,}", "")

Trovato qui.