'script to high light code In document Private Function isKeyword(w) As Boolean Dim keys As New Collection With keys .Add "if": .Add "else": .Add "elseif": .Add "case": .Add "switch": .Add "break" .Add "for": .Add "continue": .Add "do": .Add "while": .Add "foreach"...