funcion para quitar espacios de cadenas en VB.NET

[Bazookao]

holta tengo el siguiente codigo

Código VB.NET:

Private Function quitaEspacios(ByVal s As String, ByVal lon As Integer) As String
        Dim corre(lon) As Char
        Dim arr(lon) As Char
        Dim sal As Integer = 0
        arr = s
        For i = 0 To lon - 1
            If arr(i) <> " " Then
                corre(i - sal) = arr(i)
            Else
                sal += 1
            End If
        Next
                Return corre
    End Function
 

pero tiene un problema al regresar un resultado incrusta el caracter " antes del resultado

por ejemplo si le das "abc 542" regresa "abc542

y como esta funcion la necesitaba para guardar archivos me dice que hay un error a la hora de quererlo guardar porque el caracter " no esta permitido

ayuda

[Dradi7]

pero no entiendo si estas en .net porq no utilizas la funcion trim de .Net

Dim Cad as String = " Diego "
Cad = Cad.trim()
MsgBox(Cad)

Daria Como Resultado "Diego"

[boluart]

o mejor aun podrias usar la funcion replace

[Bazookao]

graicas

bueno si trim no la podia usar poque los espacios que habian era dentro de la cadena
ya busqeu la documentacion de la funcion replace muy buena jejej, akabode probarla

Código VB.NET:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        label1.Text = Replace("la cadena", " ", "")
    End Sub