'/**
' * Wandelt Twips zu cm
' * @param  Variant     Twips (Entweder ein Array von Twips, oder ein einzelner
' * @retrun Variant     cm  (Entweder ein Array von cm, oder ein einzelner
' */
Function twips2cm(ByVal iTwips As Variant) As Variant
    Dim i           As Long
    Dim pArray()    As Variant
    Dim flagArray   As Boolean
On Error GoTo Err_Handler
    
    flagArray = IsArray(iTwips)
    
    If Not flagArray Then iTwips = Array(iTwips)
    ReDim pArray(LBound(iTwips) To UBound(iTwips))
    
    For i = LBound(iTwips) To UBound(iTwips)
        pArray(i) = CDbl(iTwips(i) / 567)
    Next i
    
    twips2cm = IIf(flagArray, pArray, pArray(LBound(pArray)))
    
Exit_Handler:
    Exit Function
Err_Handler:
    twips2cm = Null
    GoTo Exit_Handler
End Function