Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub PrepQuote_Click() Dim Quote As String Dim Author As String Dim OutputString As String Dim InputString As String Dim Msg As String Dim Title As String Quote = CStr(Me.QuoteStrTxtBox.Value) Author = CStr(Me.AuthorTxtBox.Value) OutputString = CStr("<i>" & Quote & "</i> -- " & Author) Msg = "HTML formatting" Title = "Quote" InputString = InputBox(Msg, Title, OutputString) End Sub
<i>To be amused by what you read - that is the great spring of happy quotations.</i> -- C. E. Montague
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.