Public Function FabricUse(TapeWidth As Double)
FabricUse = TapeWidth 
End Function

'*************** CONSTANTS ******************
'CarrierQ(), For FabricUse(), CorrectorsQ(),
Const MaxStep127 As Double =  114 
Const EdgeFix127_AB As Double =  139 
Const EdgeFix127_CDE As Double =  124 
Const MaxStep89 As Double =  80 
Const EdgeFix89_AB As Double =  101 
Const EdgeFix89_CDE As Double =  86 

Public Function FabricUse(TapeWidth As Double, BlindWidth As Double, CtrlType As String, BlindHeight As Double) As Double
Dim MaxStep, EdgeFix As Double
CtrlType = UCase(CtrlType)
Dim MyCarrierQ As Double
Dim CarrierQ As Double

Select Case TapeWidth
    Case  127 
    MaxStep = MaxStep127
    EdgeFix = IIf(CtrlType = "A" Or CtrlType = "B", EdgeFix127_AB, EdgeFix127_CDE)
    Case  89 
    MaxStep = MaxStep89
    EdgeFix = IIf(CtrlType = "A" Or CtrlType = "B", EdgeFix89_AB, EdgeFix89_CDE)
    Case Else
    CarrierQ = BlindWidth - BlindWidth
End Select

Select Case CtrlType
   Case "A"
    CarrierQ = Round((((BlindWidth - EdgeFix) / MaxStep) +  1 ) +  0 . 5 ,  0 )
   Case "B"
    CarrierQ = Round((((BlindWidth - EdgeFix) / MaxStep) +  1 ) +  0 . 5 ,  0 )
   Case "C"
    If (Round((((BlindWidth - EdgeFix) / MaxStep) +  1 ) +  0 . 5 ,  0 ) Mod  2 ) =  1  Then
     CarrierQ = Round((((BlindWidth - EdgeFix) / MaxStep) +  1 ) +  0 . 5 ,  0 ) +  1 
    Else
     CarrierQ = Round((((BlindWidth - EdgeFix) / MaxStep) +  1 ) +  0 . 5 ,  0 )
    End If
   Case "D"
    If (Round((((BlindWidth - EdgeFix) / MaxStep) +  1 ) +  0 . 5 ,  0 ) Mod  2 ) =  1  Then
     CarrierQ = Round((((BlindWidth - EdgeFix) / MaxStep) +  1 ) +  0 . 5 ,  0 ) +  1 
    Else
     CarrierQ = Round((((BlindWidth - EdgeFix) / MaxStep) +  1 ) +  0 . 5 ,  0 )
    End If
   Case "E", "E1", "E2"
    If (Round((((BlindWidth - EdgeFix) / MaxStep) +  1 ) +  0 . 5 ,  0 ) Mod  2 ) =  1  Then
     CarrierQ = Round((((BlindWidth - EdgeFix) / MaxStep) +  1 ) +  0 . 5 ,  0 ) +  1 
    Else
     CarrierQ = Round((((BlindWidth - EdgeFix) / MaxStep) +  1 ) +  0 . 5 ,  0 )
    End If
   Case Else
    CarrierQ =  0 
End Select

Select Case TapeWidth
    Case  127 
    FabricUse = Round(((BlindHeight +  60 ) /  1000 ) * CarrierQ,  2 )
    Case  89 
    FabricUse = Round(((BlindHeight +  120 ) /  1000 ) * CarrierQ,  2 )
End Select

End Function