Ray, you can't have ANYTHING after the "THEN" or else VB assumes it's a SINGLE LINE command. For example, this is fine:

If X=A Then MsgBox "B"

But you can't say this:

IF X=A Then MsgBox "B"
   MsgBox "A"
End If

You would have to say:

IF X=A Then
   MsgBox "B"
   MsgBox "A"
End If

So it looks like VB is looking for the END OF STATEMENT because you've got a command after the THEN in your IF/THEN block. Just move that down to the next line and you'll be fine.