Per la prima usi la funzione Len(stringa)
Es:

codice:
Dim numCaratteri As Integer
Dim strNome As String

strNome = "Francesco"

numCaratteri = Len(strNome)

'Che ti restituisce 9
Per la seconda potresti fare una funzione che ti elimina i caratteri che non vuoi contare attraverso la funzione Replace e poi con la funzione Len conti i caratteri.
Semai dopo appena ho un pò di tempo te la posto

Ciao