Public Function mmToTwips(ByVal mm As Long) As Long
  Dim vContents As Variant
  Dim dTmp As Double
  Dim glwMeasure As Integer
 
  vContents = mm / 10
  dTmp = 1440 * vContents
  dTmp = dTmp / 2.54
  If dTmp >= 0 And dTmp <= 32767 Then
    mmToTwips = dTmp
  Else
    mmToTwips = 0
  End If
End Function

mfg
peacemaker

e-mail: vbarchiv@web.de