Public Function CmToTwip(lngCentiMeter As Long) As Long CmToTwip = lngCentiMeter * 567 End Function
Now Working