CONTADOR DE LETRAS

ROBSONSLZ 09/06/2013 13:35:46
#424515
Boa Tarde...

Gostaria de saber se tem como contar quantas letras existe em uma string sem o espaço no VB6?

:: Por exemplo::
[Ô]Ana Paula da Silva[Ô], (Tem 15 letras)

* Fiz este exemplo, mais esta contado os espaço após o nome Ana.

Private Sub txtNome_Change()
[ô]Quantas letras
Dim Qtd As Integer
Qtd = Len(txtNome.Text)
lblLetras.Caption = Qtd
End Sub

Grato,
MARCELO.TREZE 09/06/2013 17:08:40
#424517 Resposta escolhida
tente isso

Private Sub txtNome_Change()
    [ô]Quantas letras
    Dim SemEspaco As String
    Dim Qtd As Integer
    SemEspaco = Replace(txtNome.Text,[Ô] [Ô], [Ô][Ô])
    Qtd = Len(SemEspaco)
    lblLetras.Caption = Qtd
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar