Private Function Vorkommazahl(ByVal vZahl As Variant) As Long
  If VarType(vZahl) = vbString Then
    Vorkommazahl = Fix(Val(vZahl))
  Else
    Vorkommazahl = Fix(vZahl)
  End If
End Function

Private Function Nachkommazahl(ByVal vZahl As Variant) As Double
  Dim sZahl As String
  Dim lPos As Long
 
  If VarType(vZahl) = vbString Then
    sZahl = vZahl
  Else
    sZahl = CStr(vZahl)
  End If
 
  sZahl = Replace(sZahl, ",", ".")
  lPos = InStrRev(sZahl, ".")
  If lPos > 0 Then
    Nachkommazahl = Val("0" + Mid$(sZahl, lPos + 1))
  End If
End Function

Dim myZahl As Double
 
myZahl = 12.00120102
Vorkomma = Vorkommazahl(myZahl)
Nachkomma = Nachkommazahl(myZahl)