MS Access VBA заменить указанный диапазон в строке

Question

Я пытаюсь избавиться от «40-S8-7710» в строке без указания функции замены «40-S8-7710» из-за того, что будут другие строки, которые могут содержать «50-S2-». 7710 "," 11-42-7710 "et c .. Приведенный ниже код удаляет" 40-S8-7710 ", но также удаляет все после. Я хочу вернуть "10-7190 20-2071 30-2061 S1-AOUT04X188"

Любые идеи?

Dim NewString As String
Set NewString = "10-7190 20-2071 30-2061 40-S8-7710 S1-AOUT04X188"

NewString = Replace(NewString , Mid(NewString , InStr(NewString , "7710") - 6), "")
MsgBox(NewString)

Answer 1

левый ([строка], 24) + Right ([строка], 13)

Answer 2

Я смог выяснить, как выполнить действие, которое я искал, выполнив это

NewString= (Replace(NewString, (Mid(NewString, (InStr(NewString, "7710") - 7), 11)), ""))

Это вернет "10-7190 20-2071 30-2067 S1-AOUT04X188" .... .. «7710» - это единственный уникальный номер, который я могу использовать, чтобы вытянуть, поскольку 6 символов слева от «7710» могут отличаться в зависимости от того, что вводит пользователь. Спасибо за помощь, хотя.