Private Sub CommandButton1_Click()
    Call ProcessProductModels
    Call ProcessOrdersToBIP
End Sub