How to read real type data from edit box?

[yysome]

I am trying to read some user input real type data from edit box in Quickwin. But it looks to me VF only have the "dlgget" and "dlggetint" function to get integer orcharacter data. How can I read real type data? Really Appreciate!

[Jugoslav_Dujic]

Character(20):: Text
Real:: f

ret = DlgGet(Dlg, IDC_EDITBOX, Text)
read(Text, *, iostat=iErr) f
if (iErr.ne.0) then
MessageBox(..."Invalid value!")
end if

Jugoslav

[yysome]

Thanks!!