Numeric Field Overflow

[Jason]

I am running a make-table query, where the only operation
that it runs is to remove dashes and slashes from a part
number. It works on the first execution of the query,
however each subsequent try generates the error "numeric
field overflow." Doesn't matter if I delete the original
table or not.

here the error details:

Numeric field overflow. (Error 3349)
The data in a Btrieve field is too large to represent in
your application


here is my module:

Public Function FixEntry(Entry As Variant) As String
Dim strEntry, tmpEntry As String
Dim intLength As Integer
Dim intValue As Integer
Dim x As Integer

If IsNull(Entry) Or Entry = "" Then Exit Function

intLength = Len(Entry)
intValue = intLength

For x = 1 To intLength
tmpEntry = Right$(Entry, intValue)
If Left$(tmpEntry, 1) = "/" Or Left$(tmpEntry, 1) = "-"
Then
intValue = intValue - 1
Else
strEntry = strEntry + Left$(tmpEntry, 1)
intValue = intValue - 1
End If
Next x

FixEntry = strEntry

End Function