今度は Private Sub 問題集を開くToolStripMenuItem_Clickで
このLoadProblemを呼び出してやればいいのですから、

 Private Sub 問題集を開くToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 問題集を開くToolStripMenuItem.Click





        If dialog.ShowDialog = DialogResult.OK Then

            Dim fileName As String

            fileName = dialog.FileName

            LoadProblem(fileName)   '変更 

        End If



    End Sub

としてやれば、LoadPloblemを呼び出せます。