hjälp med if elseif-sats

:e
Hej har följande kod:

If objRS.EOF then
'
Else
	If objRS("Note") = "" then
		strNote = strNewNote
	Else
		strNote = objRS("Note")
		
		if instr(lcase(objRS("Note")), "solar") > 0 then
			strNote = Replace(strNote, "Solar", strNewNote)
			elseif instr(lcase(objRS("Note")), "storel") > 0 then
				strNote = Replace(strNote, "Storel", strNewNote)
			elseif instr(lcase(objRS("Note")), "ahlsell") > 0 then
				strNote = Replace(strNote, "Ahlsell", strNewNote)
		else
		
		end if
	end if
end if

i nuläget så kontrollerar den om [Note] är tom, är den det så skrivs det ett nytt värde. Innehåller [Note] något av orden Solar, storel eller ahlsell så uppdateras bara de orden.

Jag skulle vilja modifiera det hela till "om det redan står något i [Note] och där den strängen inte innehåller [Solar, storel, ahlsell] infoga strNewNote med en radbrytning"

Hoppas någon fattar...

Mvh
Henrik