Listing 5: Code to Add Quotation Marks
NONEXECUTABLE

Private Function Quote(varInput) As String
    Quote = Chr(34) & varInput & Chr(34)
End Function