Caros,
Obrigado pelas sugestões, estava sem internet fiquei sem ter como conferir as respostas antes e continuar pesquisando.
Enquanto estava sem internet fui pesquisar no Ajuda do Excel - Referência do Desenvolvedor do Excel 2007.
O negócio era mais simples do que imaginei.
Função FormatCurrency
Descrição
Retorna uma expressão formatada como um valor de moeda usando o símbolo de moeda configurado no Painel de controle do sistema.
Sintaxe
FormatCurrency(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]])
Ao final, minha linha de comando ficou assim:
Dim itens As ListItem
While Not banco.EOF
Set itens = Me.ListView1.ListItems.Add(, , banco(1))
itens.SubItems(1) = FormatCurrency(banco(2),-1)
itens.SubItems(2) = 1
banco.MoveNext
Wend
Postado : 19/09/2013 7:37 am