'/**
' * Wandelt zu cm zu Twips
' * @param  Variant     cm  (Entweder ein Array von cm, oder ein einzelner
' * @return Variant     Twips (Entweder ein Array von Twips, oder ein einzelner
' */
Function cm2twips(ByVal iCm As Variant) As Variant
    Dim i           As Long
    Dim pArray()    As Variant
    Dim flagArray   As Boolean
On Error GoTo Err_Handler

    flagArray = IsArray(iCm)
    
    If Not flagArray Then iCm = Array(iCm)
    ReDim pArray(LBound(iCm) To UBound(iCm))
    
    For i = LBound(iCm) To UBound(iCm)
        pArray(i) = CLng(Fix(iCm(i) * 567))
    Next i
    
    cm2twips = IIf(flagArray, pArray, pArray(LBound(pArray)))
    
Exit_Handler:
    Exit Function
Err_Handler:
    cm2twips = Null
    GoTo Exit_Handler
    Resume
End Function