At row 83-85 there is an extra '(' at the end of the data. That's causing the overflow.

You could add this after the Dim in the AddPara sub
[vba]Dim mI As Long
If Right(iInfo, 1) = "(" Then
iInfo = Left(iInfo, Len(iInfo) - 1)
End If
[/vba]This strips the extra bracket off. However if the data has extraneous data like this from time to time, you may have to add more error checking.