Hi Arthur,
i hope, i understood you right :
Here is some code from the KnowHow.MDB from Klaus Oberdalhoff :
'*********
Function ReplaceStr(Textin, SearchStr, Replacement, Optional CompMode As
Integer = 2)
'
' Replaces the SearchStr string with Replacement string in the TextIn string.
' Uses CompMode to determine comparison mode
' Aus der Neatcd97.mdb Microsoft
'
Dim WorkText As String, Pointer As Integer
If IsNull(Textin) Then
ReplaceStr = Null
Else
WorkText = Textin
Pointer = InStr(1, WorkText, SearchStr, CompMode)
Do While Pointer > 0
WorkText = Left(WorkText, Pointer - 1) & Replacement & Mid(WorkText,
Pointer + Len(SearchStr))
Pointer = InStr(Pointer + Len(Replacement), WorkText, SearchStr,
CompMode)
Loop
ReplaceStr = WorkText
End If
End Function
'******
You can use it in that way :
newString = replaceStr(oldString,"-","")
Hth
Tino