or与and的组合应用

Question

下面两个and能否合为一个判断语句？
当满足
cPt(1) < yMax And cPt(1) > yMin 
或满足
cPt(1) < y1Max And cPt(1) > y1Min 
条件时
            Pt1(1) = cPt(1)
            Pt2(1) = yMin
            Set oLine = CadDoc.ModelSpace.AddLine(Pt1, Pt2)
--------------------------
          If cPt(1) < yMax And cPt(1) > yMin Then
            Pt1(1) = cPt(1)
            Pt2(1) = yMin
            Set oLine = CadDoc.ModelSpace.AddLine(Pt1, Pt2)
          End If
          If cPt(1) < y1Max And cPt(1) > y1Min Then
            Pt1(1) = cPt(1)
            Pt2(1) = yMin
            Set oLine = CadDoc.ModelSpace.AddLine(Pt1, Pt2)
          End If

Answer 1

If (cPt(1) < y1Max And cPt(1) > y1Min) or (cPt(1) < y1Max And cPt(1) > y1Min) Then
  Pt1(1) = cPt(1)
  Pt2(1) = yMin
  Set oLine = CadDoc.ModelSpace.AddLine(Pt1, Pt2)
  End If

Answer 2

If (cPt(1) < y1Max And cPt(1) > y1Min) or (cPt(1) < yMax And cPt(1) > yMin) Then
     Pt1(1) = cPt(1)
     Pt2(1) = yMin
     Set oLine = CadDoc.ModelSpace.AddLine(Pt1, Pt2)
End If