Удаление текста до первого вхождения слова из текстового файла - VB

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

Добрый день! Необходима помощь в доработке кода на VB. Удаление текста до первого вхождения слова "Привет" из текстового файла(txt). Есть наработки, НО если в тексте слово "Привет" встречается несколько раз то удаляется текст до последнего вхождения слова, что не есть хорошо. Т.е. нужно следующее: Есть текст в файле: как так Привет если тогда Привет куда зачем После выполнения кода должно остаться: Привет если тогда Привет куда зачем Сейчас у меня остается: Привет куда зачем

                    Листинг программы
                
 
                        
                          
                    
    Dim st As String, pos As Long
    Open "C:\CTI\LOG\CtiDriver.2013-04-13.log" For Binary As #1
    st = Space$(LOF(1))
    Get #1, , st
    Close 1
    pos = InStr(1, st - 1, "Привет")
    st = Right$(st, pos)
    Kill "C:\CTI\LOG\CtiDriver.2013-04-13.log"
    Open "C:\CTI\LOG\CtiDriver.2013-04-13.log" For Binary As #1
    Put #1, , st
    Close 1

Решение задачи: «Удаление текста до первого вхождения слова из текстового файла»

textual
                            Листинг программы 
                        
 
                        
                          
                    
    Dim st As String, pos As Long
    Open "C:\CTI\LOG\CtiDriver.2013-04-13.log" For Binary As #1
    st = Space$(LOF(1))
    Get #1, , st
    Close 1
    pos = InStr(1, st, "Привет")
    'st = Right$(st, pos)
    st = Mid(st, pos, Len(st) - pos)
    Kill "C:\CTI\LOG\CtiDriver.2013-04-13.log"
    Open "C:\CTI\LOG\CtiDriver.2013-04-13.log" For Binary As #1
    Put #1, , st
    Close 1