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
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