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