' New CamBam VBScript
' CamBam InputBox

Sub main

    Dim dia as CamBam.Util.PromptDialog = New CamBam.Util.PromptDialog
    
    dia.TextValue.Text = 1.25
    dia.PromptLabel.Text = "Prompt"
    dia.ValueDescription.Text = "Description: "
    
    'function return:  1 = Ok , 2 = cancel   
    app.log(dia.showdialog())

    'the value
    app.log(dia.TextValue.Text )

End Sub