Если вы знаете, что вокруг значения всегда есть апострофы, вы можете просто получить символы между ними:
query = Field & " in (" & Mid(value, 2, Len(value) - 2) & ")"
Если вы знаете, что значения являются числовыми (то есть апострофы не нужны вSQL, поскольку они не являются строковыми литералами), вы можете удалить все апострофы в значении:
query = Field & " in (" & Replace(value, "'", "") & ")"
Вы можете также рассмотреть вопрос, откуда взялись апострофы.Если вы добавите их в какой-то момент ранее в коде, проще всего, конечно, не добавлять их (или сохранять исходное значение в другой переменной, если вам нужны апострофы для чего-то еще).