Убрать последние несколько букв из строки - Visual Basic .NET

Формулировка задачи:

Всем доброго здравия, господа. Прошу подсказать:

Dim S As string = "ЯБЛОКОСПЕЛОЕ"

Каким образом можно убрать часть "СПЕЛОЕ", чтобы осталось только S = "ЯБЛОКО"? Обращаю внимание, что два слова не имеют между собой разделителя и написаны слитно намеренно. Спасибо!

Решение задачи: «Убрать последние несколько букв из строки»

textual
                            Листинг программы 
                        

                            ' Так
S = S.Remove(6)
 
' Или так
S = S.Remove(S.IndexOf("СПЕЛОЕ"))
 
' Или вот так
S = S.Remove(S.IndexOf("ЯБЛОКО")+"ЯБЛОКО".Length)
                        