after unloading form,automatically it load the same form

[rahul14_9]

hi
on cmdNextComparision_Click i m calling afunction RetriveSubString, in RetriveSubString i m unloadind the same form
it unload the form and returns to cmdNextComparision_Click and from there again it stars loading form automaticallyfrom form_onload() which i don't want
code is as follows
if u want the file send me ur address

thanks in advance



Private Sub cmdNextComparision_Click()
If cmdNextComparision.Caption = "Next Comparision" Then
WriteStructureData2
WriteVerbatimData2
cmdNextComparision.Enabled = False
cmdStart.Enabled = True
RetriveSubString
End If
If cmdNextComparision.Caption = "Next QA" Then
WriteStructureData3
WriteVerbatimData3
cmdNextComparision.Enabled = False
cmdStart.Enabled = True
RetriveSubString1
End If
End Sub

Public Function RetriveSubString()
a = 0
Static counter As Variant
If counter > UBound(StringArray1) Then
MsgBox "Comparision for This Batch is Over"
counter = 2
frmOption.compare = False
Unload frmmain
Unload frmSelectFiles
Exit Function

End If