Getting a 0 When Dividing

[dnguyen1022]

Hello all! First post! =]

So I wrote up a VBA macro that takes in two strings and returns a percentage of how identical the strings are. I have the code written out but for some reason, every time I attempt to divide my two numbers I get back a 0. Using two sample strings, I used MsgBox to print out the numbers my code is trying to divide with and they return 6 and 10 respectively. This should return me .60, but it just keeps returning 0.

I declared the two variables as Doubles. I tried to use "/" instead of "\". I even tried using CDbl() three times to (re)convert the two numbers and the result. I posted a snippet of the code that I believed to be relevant below. It would be great if you could assist me!


[VBA]
Dim splitString As Variant
Dim regionMatches As Double
Dim dec As Double
Dim arraySize As Double

.....

regionMatches = 0

For Each part In splitString
If InStr(1, string2, part) Then
regionMatches = regionMatches + 1
End If
Next

arraySize = UBound(splitString)
dec = regionsMatches / arraySize
MsgBox(dec) 'PRINTS OUT 0

......
[/VBA]

Thank you!

[mdmackillop]

Welcome to VBAX
I think we need to see a whole sub. What is Part?, Splitstring?
You can post a workbook with sample data using Manage Attachments in the Go Advanced reply section

[dnguyen1022]

Sorry, I am now at home and do not have the sample data with me. splitString is an array that contains the "parts" of my string that I used the function Split() to create. Is this enough information? Thanks for the quick reply!