Dim str As String = "ok!I'm going! ok!let's go!"Dim s As String = "ok!"If str.IndexOf(s) = 0 Then str = str.SubString(s.length)End Ifmsgbox(str)