Burde virke?

Jeg har denne funktion:

Function RemoveSpaces(strText)

For x = 1 To Len(strText)
currchar = Mid(strText, x, 1)
If currchar <> \" \" Then
Startpos = x
Exit For
End If
Next

For x = Startpos To Len(strText) - 1
currchar = Mid(strText, Len(strText) - x, 1)
If currchar <> \" \" Then
Endpos = Len(strText) - x - Startpos + 1
Exit For
End If
Next
RemoveSpaces = Mid(strText, Startpos, Endpos)
End Function

den skal f.eks. lave \"          12.55      \" til
\"12.55\"

men den dur ik altid..så fjerner den bare alt..nogle der kan dreje den?

svar inden 5 minutter så ryger points opp på 150!