Ho fatto questa funzione

Public Function conoct(num As Currency)
conoct = oct(num)
End Function

e la uso così

[...]
decda = Val(Text1.Text)
[...]
items.ListSubItems.Add , , conoct(decda)
[...]

Mi da questo errore: ByRef argument type mismatch

Cos'è? E soprattutto, come lo risolvo?