Ja die Möglich keit von Justus ist ok, wenn die Zahl in einer Textbox steht, aber wenn du sie nur im Programm verwendest in einer Variablen geht das ein wenig anders, aber ähnlich. Du musst die Zahl in einen String umwandeln und dann schauen wo das Komma ist. Ich schreib mal einen Code rein, der eine Funktion enthält, die als Rückgabewert die Anzahl der Stellen hat:
Option Explicit
Dim zahl As Double
Dim kommastellen As Integer
Private Sub Form_Load()
zahl = 3.12345678
kommastellen = stellen(zahl)
MsgBox (kommastellen)
End Sub
Private Function stellen(zahl As Double) As Integer
Dim str_zahl As String
Dim str_temp As String
str_zahl = CStr(zahl)
Dim i As Integer
Dim komma As Boolean
komma = False
For i = 1 To Len(str_zahl)
If komma = True Then str_temp = str_temp + Mid(str_zahl, i, 1)
If Mid(str_zahl, i, 1) = "," Then komma = True
Next i
stellen = Len(str_temp)
End Function
Gruss Homer
