Script help please

Function Main()
Begin Dialog Menu 192,45,140,115, "Run Manual Alignment?",.enable
OptionGroup .GROUP_1
OptionButton 32,16,68,12,"YES",.choice1
OptionButton 32,28,68,12,"NO",.choice2
OKButton 8,88,48,16
CancelButton 64,88,64,16
End  Dialog

Dim  app  As Object
Set  App = CreateObject("pcdlrn.Application")

Dim  part  As  Object
Set  Part  =  App.activePartProgram

Dim  cmds  As  Object
Dim  cmd  As  Object

Dim  dlg1  As  Menu
button  =  Dialog( Dlg1 )

Dim  sel_text  As  String

If  button  =  -1  Then
'comment  MsgBox "button:" & button ' uncomment For button return value
Select  Case  Dlg1.GROUP_1
Case  0 
sel_text  =  "YES"
Case  1
sel_text  = "NO"
End  Select
Else
MsgBox "Cancel was Pressed"
End  If

Set  cmds  =  part.Commands
'comment  Get the assignments command
For  Each  cmd  In  cmds

If  cmd.TypeDescription  =  "Assignment"  Then
bln  =  cmd.PutText(""""  + sel_text  + """",SRC_EXPR,0)
cmd.ReDraw
End  If

Next  cmd

End  Function