codice:
Function decimali(numero As Double)
If InStr(numero, ",") = 0 Then
    decimali = 0
Else
    decimali = Len(Split(numero, ",")(1))
End If
End Function
In base al numero di cifre decimali restituite dalla funzione applichi la tua condizione.