reemplazar caracteres y espacios

Public Function reemplazar_str(ByVal str As String) As String()
        Return Regex.Replace(str, "\s+", "@").Split("@")
    End Function