Use Len() instead of = "" for string comparisons
Use <> 0 rather than > 0 when comparing against Len()
Avoid using vbTextCompare against static strings
Check InStr before doing Replace
Don't use objects in the same conditional that checks for existence. VB6 doesn\'t short circuit and will throw RTEs