Function ЕСТЬНД(s As String)
    If s = "" Then
        ЕСТЬНД = 0
    ElseIf InStr(1, s, "б/н", vbTextCompare) > 0 _
       Or InStr(1, s, "б/у", vbTextCompare) > 0 _
       Or InStr(1, s, "б\н", vbTextCompare) > 0 _
       Or InStr(1, s, "б\у", vbTextCompare) > 0 _
       Or InStr(1, s, "н/д", vbTextCompare) > 0 _
       Or InStr(1, s, "н\д", vbTextCompare) > 0 _
       Or InStr(1, s, "нет", vbTextCompare) > 0 Then
       ЕСТЬНД = 1
    Else
        ЕСТЬНД = 0
    End If
End Function