Dim Merker As String
 
    Merker = 1 / 2
    If InStr(1, Merker, ",") = 0 Then
        'kein komma -> ganzzahlig
    Else
        If Len(Right(CStr(Merker), Len(Merker) - InStr(1, Merker, ","))) > 1 Then
            MsgBox "Mehr als eins!"
        End If
    End If