たとえば、「New」キーワードを用いて、 Private Sub Command1_Click() Dim F As Form2 Set F = New Form2 F.Show End Sub のようにすると、ボタンを押すたびに、新たな Form2 が開いてしまいますが、 これと同じような現象になっていませんか?
まずは、フォームの起動のために、New を使っている所を探してみてください。 もし見つかったら、その New が複数回呼び出されてしまう事が無いか、 御自身のプログラムを再確認してみてください。
# New を使っていない、もしくは 1 回しか呼び出していないのに、 # 同じダイアログが開いてしまうようであれば、また別の理由が考えられます。