Visual Basic - Quitar largos espacios en blanco en cadena

s = Regex.Replace(s, " {2,}", "|")

Dim Cadena As String

    Dim CadenaAuxiliar

    Cadena = "cadena           original         con  muchos espacios"

    CadenaAuxiliar = Cadena

    Do

        Cadena = CadenaAuxiliar

        CadenaAuxiliar = Replace(Cadena, "  ", " ")

    Loop Until CadenaAuxiliar = Cadena

    Cadena = Replace(Cadena, " ", "|")

Dim Cadena As String

    Dim Cadenas() As String

    Dim CadenaFinal As String

    Dim i As Long

    Cadena = "-       Yashir Pinto      -         Yerson Opazo          "

    Cadenas = Split(Cadena, "-")

    For i = 1 To UBound(Cadenas)

        CadenaFinal = CadenaFinal & "-|" & Trim(Cadenas(i))

    Next i

    CadenaFinal = CadenaFinal & "|"