Function ConvertIt(StringToConvert, ReplaceChar, ConversionChar)
  Dim TempString
  Dim LastFound
  TempString = StringToConvert
  LastFound = instr(TempString, ReplaceChar)
  Do Until LastFound = 0
    TempString = left(TempString, LastFound - 1) & ConversionChar _
      & right(TempString, Len(TempString) - LastFound)
    LastFound = instr(TempString, ReplaceChar)
  loop
  ConvertIt = TempString
End Function
