Error in Super Easy Word Merge Code

[Guest]

Hi,

I have been using the Super Easy Word Merge found
http://www.members.shaw.ca/AlbertKallal/msaccess/msaccess.html

It worked last week but now it comes up with the following error:
Run-time error '6':
Overflow

Does anyone know what this means?

When I click on Debug it takes me to the following highlighted line:

intFoundPos = InStr(vText, strSearchFor)

This section of code is:

Function strDReplace(vText As String, strSearchFor As String, strReplaceTo
As String) As String

Dim intFoundPos As Integer
Dim intSearchLen As Integer
Dim intReplaceLen As Integer

intSearchLen = Len(strSearchFor)
intReplaceLen = Len(strReplaceTo)

intFoundPos = InStr(vText, strSearchFor)

Do While intFoundPos > 0
vText = Left$(vText, intFoundPos - 1) & strReplaceTo & Mid(vText,
intFoundPos + intSearchLen)
intFoundPos = InStr(vText, strSearchFor)
Loop

strDReplace = vText

End Function

 

[Terry Kreft]

The simple fix would probably be replace the line
Dim intFoundPos As Integer

with
Dim intFoundPos As Long