My Error Handler Writes Duplicate Messages To Email!

I am using an error handler that was provided to me from another source. However, I notice that there's something in the code that writes the error message twice. I tried to discover what it was, but could not seem to pinpoint it. Here's an example of what my email messages look like:

Is activity file current?
The Script returned a failure result.
The extracts in D:myFolder are not current! Data NOT loaded.
Is activity file current?
The Script returned a failure result.
The extracts in D:myFolder are not current! Data NOT loaded.

Obviously, I just want my email to read:

Is activity file current?
The Script returned a failure result.
The extracts in D:myFolder are not current! Data NOT loaded.

Somewhere, errorMessages is being written to more than once. Need help finding the error.

Thanks!

Here is the code from my Event Handlers:

OnError event:


Public Sub Main()

Dim messages As Collections.ArrayList


Try

messages = CType(Dts.Variables("errorMessages").Value, Collections.ArrayList)

Catch ex As Exception

messages = New Collections.ArrayList()

End Try


messages.Add(Dts.Variables("SourceName").Value.ToString())

messages.Add(Dts.Variables("ErrorDescription").Value.ToString())

messages.Add(Dts.Variables("scriptError").Value.ToString())

Dts.Variables("errorMessages").Value = messages

Dts.TaskResult = Dts.Results.Success

End Sub


On PostExecute:


Public Sub Main()

Dim errorDesc As String

Dim messages As Collections.ArrayList

Try

messages = CType(Dts.Variables("errorMessages").Value, Collections.ArrayList)

Catch ex As Exception

Return

End Try


For Each errorDesc In messages

Dts.Variables("emailText").Value = Dts.Variables("emailText").Value.ToString + errorDesc + vbCrLf

Next

Dts.TaskResult = Dts.Results.Success

End Sub