You are looking for
If k.Contains("sIntroSequence=BGS_LOGO.BIK") Then
but you are writing
lines(10) &= vbNewLine & "sIntroSequence=" 'WRITE IT TO LINE10
What is actually in the file?
Have you set a break point and stepped through your code to see what is happening?
If not then these are the first things you should do.