[SIZE=2][COLOR=#008000]'Add a DecOperator named dec.
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Sub [/COLOR][/SIZE][SIZE=2]Globals
[/SIZE][SIZE=2][COLOR=#0000ff]End Sub
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]
Sub [/COLOR][/SIZE][SIZE=2]App_Start
dec.New1
[/SIZE][SIZE=2][COLOR=#0000ff] AddObject[/COLOR][/SIZE][SIZE=2]("d1","decNumber")
[/SIZE][SIZE=2][COLOR=#0000ff] AddObject[/COLOR][/SIZE][SIZE=2]("d2","decNumber")
d1.New1
d2.New1
d1.Value = dec.ParseD("1")
d2.Value = dec.FromDouble(7)
d1.Value = dec.DivD(d1.Value,d2.Value)
d1.Value = dec.AddD(d1.Value, d2.Value)
[/SIZE][SIZE=2][COLOR=#0000ff] msgbox[/COLOR][/SIZE][SIZE=2](d1.ToString2("n25"))
[/SIZE][SIZE=2][COLOR=#0000ff]End Sub
[/COLOR][/SIZE]