Conversione dec->OCT

[FinalFantasy]

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?

[tas]

Come è stato definito decda? Dim decda As ???

[FinalFantasy]

Dim bin, oct, hex, decda, deca As Integer

[Gigi84]

Originariamente inviato da FinalFantasy
Dim bin, oct, hex, decda, deca As Integer

Stai attento! perchè in questo caso solo deca è di tipo Integer, gli altri sono dei Variant!!