Why is this looping (lotus Script)

[NotSQL]

Sub Click(Source As Button)

On Error Goto ErrorHandler

NumericValue:
Dim session As New NotesSession
Dim wksp As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim ntnum As Variant

Set uidoc = wksp.CurrentDocument
Set doc = uidoc.Document
ntnum = wksp.Prompt(PROMPT_OKCANCELEDIT,"Residual Value Reset","Please enter the Residual Value",Cstr(doc.AgreedBuybackValue(0)))
doc.AgreedBuybackValue = Cint(ntnum)


ErrorHandler:
Messagebox "Please Enter Numeric Value"
Goto NumericValue

End Sub

 

[tsuji]

Search at the top (find a forum) with keyword Lotus

 

[NotSQL]

Lotus script is very much like VB script

Thanks for your response though!!!

 

[tsuji]

Okay. It loops because
[tt]Goto NumericValue[/tt]
without it, it won't loop.
ps: It is more like vba rather than vbs. But, if you insist on "like" rather than unlike, that is not unreasonable too.