Private Sub CommandButton1_Click()
    Call RunBOMExtraction
End Sub