Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Public Function AcceptQuote(strAmount as String, strName as String)
msgbox "Thank you, " & strName & " for accepting this quote of " & strAmount
...
End Function
Private Sub AcceptQoute_Click()
AcceptQuote(txtPrice, txtName)
End sub
Private Sub OtherPlaceYouWantToAcceptQuote_Click()
AcceptQuote(txtDiscountPrice, "FooBar")
End Sub