08-04-2009, 12:24 AM
Now I know this way may not be the most secure/effecient way to do this, but it will turn what would be a multiple hour project to be done in a matter of seconds. If you want to do it all manaully you can, but here is the quick easy way.
Open up a search box, go to modHandleData.
Search for CInt, replace all (in module) with CCInt
Search for CLng, replace all (in module) with CCLng
Search for CByte, replace all (in module) with CCByte
At the bottom add
[code]Private Function CCInt(ByRef s As String) As Integer
' Make sure there is a valid string
If LenB(s) = 0 Then Exit Function
' Check if it's a number
If Not s Like "*[!0-9]*" Then
' Check for overflows
If s >= -32768 Then
If s = -2147483468 Then
If s = 0 Then
If s
Open up a search box, go to modHandleData.
Search for CInt, replace all (in module) with CCInt
Search for CLng, replace all (in module) with CCLng
Search for CByte, replace all (in module) with CCByte
At the bottom add
[code]Private Function CCInt(ByRef s As String) As Integer
' Make sure there is a valid string
If LenB(s) = 0 Then Exit Function
' Check if it's a number
If Not s Like "*[!0-9]*" Then
' Check for overflows
If s >= -32768 Then
If s = -2147483468 Then
If s = 0 Then
If s