Диалоговое окно

[Busine2009]

Вот есть код:

Sub FilePrint()
  Dim oSec As Section, sNotA4 As String, sNotPortrait As String
  For Each oSec In ActiveDocument.Sections 'Просматриваем все разделы в документе
      'Если страницы в разделе имеют формат, отличный от А4
    If oSec.PageSetup.PaperSize <> wdPaperA4 Then
      sNotA4 = sNotA4 & vbCr & "Раздел " & oSec.Index
    End If
     'Если страницы в разделе имеют альбомную ориентацию
    If oSec.PageSetup.Orientation <> wdOrientPortrait Then
      sNotPortrait = sNotPortrait & vbCr & "Раздел " & oSec.Index
    End If
      'Если в документе есть поле > 4 см
  Next
  If sNotA4 <> "" Then sNotA4 = "Не А4" & sNotA4 & vbCr
  If sNotPortrait <> "" Then sNotPortrait = "Альбомная ориентация" & sNotPortrait & vbCr & vbCr
  If sNotA4 <> "" Or sNotPortrait <> "" Or sNotTopMargin > "" Then
    'Выводим сообщение
    Select Case MsgBox(sNotA4 & vbCr & sNotPortrait, vbInformation + vbOKCancel, "Предпечать")
      'Если в окне с сообщением нажали ОК, то показываем диалог печати
      Case vbOK: Dialogs(wdDialogFilePrint).Show
      'Если Отмена, то завершаем выполнение.
      Case vbCancel: Exit Sub
    End Select
  Else: Dialogs(wdDialogFilePrint).Show
  End If
End Sub

Вот если имеет место ситуация, что не <> and >, а =, например
If oSec.PageSetup.PaperSize = wdPaperA4 Then
то как быть в этом случае с
If sNotA4 <> "" Then sNotA4 = "Не А4" & sNotA4 & vbCr
Если я поставлю = вместо <>, то в диалоговое окно выходит всегда, даже если нет ситуации, чтобы ему выходить.