Removing character

  • Thread starter Thread starter Lotto
  • Start date Start date
L

Lotto

I know that many of this topic have been posted, but this is unique in
a way. The code below usually works to remove a character, but what
if the Char I want to remove is the ". I even tried to outline these
with single quotes, but can't make it work.

Public Function RemoveComma(FieldIn As String) As String
Dim intX As Integer
Dim intY As Integer
Dim NewString As String

intY = 1
intX = InStr(1, FieldIn, ",")

Do While intX <> 0
NewString = NewString & Mid(FieldIn, intY, intX - intY)
intY = intX + 1
intX = InStr(intY, FieldIn, ",")
Loop

NewString = NewString & Mid(FieldIn, intY, Len(FieldIn) - intY +
1)
RemoveComma = NewString
End Function
 
Back
Top