Se pesquisar no forum encontrara outros tópicos sobre o assunto :

Formatar Listview para Moeda [Resolvido]
viewtopic.php?t=9210&p=48363

[]s

Mauro,

Tentei baixar os exemplos mas está corrompido.

Não sei se ainda tenho cópia daquele arquivo, mas a principio se é só referente a formatação para Moeda, siga a orientação da última mensagem do "depoisteconto" referente a:

Sintaxe
FormatCurrency(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]])

    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

Ainda não consegui. Dá uma força aí.

Halk, é só alterar a linha na "txtPesquisa_Change" referente a coluna que tem valor monetário:

Troque esta:
.ListItems(1).ListSubItems.Add 2, , banco(2)

Por esta
.ListItems(1).ListSubItems.Add 2, , FormatCurrency(banco(2))

[]s

Mauro,

Muito obrigado. Deu certo.

Grato.