Private Sub CommandButton1_Click()
    Call RunBOMConversion
End Sub