How can I change the following code so that it eliminates the quotes ("...") from a text string stored in a column in Excel? Apparently, tthe code on the bottom will only remove empty spaces:

Public Function RemoveSpaces(strInput As String)
' Removes all spaces from a string of text
Test:
If InStr(strInput, " ") = 0 Then
RemoveSpaces = strInput
Else
strInput = Left(strInput, InStr(strInput, " ") - 1) _
& Right(strInput, Len(strInput) - InStr(strInput, " "))
GoTo Test
End If
End Function

Thank You !