You know you've had enough for the day when you type

Dim sSplitPerson() as String as a varaiable and find it funny