This should work in Access 97
Dim strText As String
Dim intLastPos As Integer, intPos As Integer
intPos = InStr(1, strText, Chr(44), vbTextCompare)
Do While intPos <> 0
strText = Left(strText, intPos - 1) & "* or *" & Mid(strText, intPos + 1, Len(strText) - intPos)...