Yesterday while poking around on LifeHacker I found this tool. It's called Texter and is pretty cool. From the Texter Homepage:

Windows only: Text substitution app Texter saves you countless keystrokes by replacing abbreviations with commonly used phrases you define.

For example, lets say you start a new LotusScript agent or something. You start every agent with:
Dim s as New NotesSession
Dim db as NotesDatabase

Set db = s.CurrentDatabase

Well, you can define that as a Hot String and assign it a name like newAgent. Now, create a new LotusScript agent and where you want the above code string type "newAgent" and press the Tab key (or whatever hot key you designate) and the text newAgent is removed and replaced with the above code. Pretty cool!