I need to write a code to open a new Defect window while executing manual tests and one of the step is failing. Here is the code that I have for Manual Runner Script and I know that it is calling Bug_New function, but the window is not opened. What do I miss?

Sub Step_FieldChange(FieldName)
On Error Resume Next
Dim intAnswer

Select Case FieldName

If Step_Fields.Field("ST_STATUS").Value = "Failed" Then
intAnswer = Msgbox("Do you want to open New Defect?", _
vbYesNo, "WorkFlow Message")

If intAnswer = vbYes Then

Msgbox "You answered no."
End If
End If
End Select
On Error GoTo 0
End Sub

Thank you.