if Val(Control.Caption) > 0.3 then

Function ShapeFloat (ByRef MyText as String) as Double
Dim i as Integer
Dim MyFloat as Double
 
For i = 1 to Len(MyText)
    if Mid(MyText,i,1) = "," then Mid(MyText,i,1) = "."
Next i
 
MyFloat = Val(MyText)
MyText = CStr(MyFloat)
 
ShapeFloat = MyFloat
End Function