Sub Buttontest_click
'--------------------------------------------------
Dim ret As Int
Dim testnum As Double
Nd.Decimal = 2 'number of decimal places to be shown on popup
Nd.Digits = 6 'number of digits including decimals to be shown on popup.
Nd.Number = 0 'starting number to be shown on popup
ret = Nd.Show("Modify Amount to?", "Modify", "Cancel", "", Bmp)
'-------------------------------------------------------
'do something after user selects on file dialog menu
testnum = Nd.Number/100 'divide by 100 as there are 2 decimal places
Select ret
Case -1
Msgbox("Field was modified.","")
Labeltest.text = "$" & testnum
Case -3
Msgbox("Canceled. Field was NOT modified.","")
Labeltest.text = "$" & testnum
End Select
'-------------------------------------------------
End Sub