Public Sub VerschachtelteIFs(lZahl As Long, b1 As Boolean, b2 As Boolean, b3 As _
  Boolean)
  If b1 Then
    Debug.Print "b1 = true"
    If b2 Then
      Debug.Print "b2 = true"
      If b3 And lZahl = 99 Then
        Debug.Print "b3 = True & lZahl = 99"
      End If
      If lZahl = 99 Or lZahl = 100 Then
        Debug.Print "lZahl = 99 oder 100"
      End If
      If lZahl > 5 And lZahl < 50 Then
        Debug.Print "lZahl zwischen 5 und 50"
      End If
    End If
  End If
End Sub