Code box #1
Type typQuote
quoteText As String * 600
quoteAuthor As String * 50
End Type

Public Sub readQuote(quoteNumber As Integer, callingForm As Form)
'procedure to read a quote from the file and
'display it in the form.
Dim temporaryQuote As typQuote
'Get the requested quote from the quotes.txt file
Get #1, quoteNumber, temporaryQuote
'Display the quote on the screen
callingForm.txtQuote = temporaryQuote.quoteText
callingForm.txtAuthor = temporaryQuote.quoteAuthor
callingForm.lblQuoteNumber = "Quote Number" + Str(quoteNumber)
End Sub

Public Sub displayAlertMessage(Message)
Title = "Quotes Alert!"
Buttons = vbOKOnly + vbExclamation
MsgBox Message, Buttons, Title
End Sub