The code on page 28 will not remove any additional spacing. A better example of the code, which will remove any additional spacing and not allow empty strings, is:

Dim Greeting
Dim UserName
Dim TryAgain

Do
TryAgain = "No"

UserName = InputBox("Please enter your name:")
UserName = Trim(UserName)
If UserName = "" Then
MsgBox "You must enter your name."
TryAgain = "Yes"
Else
Greeting = "Hello, " & UserName & ", it's a pleasure to meet you."
End If

Loop While TryAgain = "Yes"

MsgBox Greeting

2nd Paragraph, 4th Sentence should read:

Before we start the loop, we initialize LoopCount with the numeric value of one.

The text should read:

A literal is any piece of data that appears in your code that is not stored as a variable or named constant...

The code referred to as 'WroxLogGroup.vbg' is called 'page140.vbs' in the downloadable source code.

The code should read:

<BLUE>Dim objFirstDocument
Dim objSecondDocument

' Instantiate the Document class from the Word COM
' component/server on the local machine
Set objFirstDocument = CreateObject("Word.Document")
' Let the second document reference the first document
Set objSecondDocument = objFirstDocument
' Show the instance of Word
objSecondDocument.ActiveWindow.Visible = True

' Destroy the first document after use
ObjFirstDocument.Close
Set objFirstDocument = Nothing


<BLACK>NOTE: "<RED>Set<BLACK>" has been deleted from line 10 of the code.

Paragraph 3 should read:

"... Without this the word 'National' would be changed to 'Nationanal'. Second..."

The syntax for the following methods of the FileSystemObject object are listed incorrectly in Appendix F. The correct syntax for these methods is:

object.CopyFile source, destination[, overwrite]

object.CopyFolder source, destination[, overwrite]

object.DeleteFile filespec[, force]

object.DeleteFolder folderspec[, force]

object.MoveFile source, destination

object.MoveFolder source, destination

where [] indicate optional parameters