Array worksheetFunction.sum

Hi - see code below. I've built a simple 3 element array with integers in each box. Using the worksheetFunction.sum I can sum the total array, but when I change the array values to Currency$, the sum just returns a value of 0. I need to be able to sum currency values in the array, but it's not working.



Sub test22()

Range("j165").Select

Dim arryTest2 As Variant

arryTest2 = Range("h160").CurrentRegion 'array values equal 200, 25, 5, total sum is 230. changes the values to $200, $25, $5, total sum is 0

ActiveCell.value = WorksheetFunction.Sum(arryTest2)
End Sub