Bom dia!!

Onde será digitado esse valor, em um controle?

Tente usar o Len
Exemplo:

Private Sub TextBox1_Change() 
    If Len(TextBox1.Value) > 4 Then 
        MsgBox "Atingiu o máximo de caracteres!" 
        TextBox1.SetFocus 
    End If 
End Sub 

Att

Amigo Alexandrevba
olha só: este comando que você colocou funciona, mas não é isto que eu preciso agora.

Preciso algo que permita digitar somente 3 casas decimais num textbox. Assim: caso a pessoa digite: 35,234 ela tenha atingido o máximo de 3 casas decimais. Agora é possivel digitar 35,23456565659. Queria bloquear isto. Claro que, se não encontrar o comando correto, não tem problema.

Obrigado

Boa noite!!

O código que eu passei foi uma previa da logica que você vai adotar e não a real solução ou necessidade que você precisa.
https://www.thespreadsheetguru.com/the- ... cal-values
No link acima há algumas formas de fazer algo como sua necessidade.

Att

Uma possibilidade:

Private Sub TextBox1_Change()
nde = Split(TextBox1, ",")
If Len(TextBox1) = 0 Then Exit Sub
TextBox1.MaxLength = Len(nde(0)) + 4
End Sub