Export To Shape with Float datatype fields

Dear All,

While exporting DGN to Shape file by using VBA[ArcViewShapeFileControl_crp.ocx], How to create a field with Float data type?  Code snippet is given below for your reference which creates a field with double data type instead of float.

Dim newFld As ShapeField
With UserForm1.ShapeFiles1
.OpenShape shpFilePath, shpCreate, shpPolygon
Set newFld = .ShapeFields.CreateField("FieldName1", shpFloat)
.AppendFieldDefs
End With