Private Sub ListBox_Click()
    If A = "" Then
        A = "Значение А: " & ListBox.Value
    Else
        A = A + ListBox.Value
    End If
    MAINFORM.TextBoxMAIN.Value = A 'В другую форму выводится "собирательное" значение из ListBox
End Sub

Private Sub Find_Value(sValue As String, rFindRange As Range)
If sValue = "*" Then ListBox1.Clear:  Exit Sub
Dim N As Long
Dim rFndRng As Range
N = 0
Set rFndRng = rFindRange.Find(what:=sValue, LookIn:=xlValues, lookat:=xlWhole)
With ListBox1
For N = 0 To Me.ListBox1.ListCount - 1
If rFndRng Is Nothing Then GoTo Clear
Do
.AddItem ""
.List(N, 0) = rFndRng.Offset(0, -1).Value
.List(N, 1) = rFndRng
N = N + 1
End If
Set rFndRng = rFindRange.FindNext(rFndRng)
Next
End With
Clear: ListBox1.Clear
End Sub

Private Sub ОКНО_ПОИСКА_Change()
Call Find_Value(ОКНО_ПОИСКА.Value & "*", Range("ДИАПАЗОН"))
End Sub

End SubPrivate Sub Find_Value(sValue As String, rFindRange As Range)
If sValue = "*" Then ListBox1.Clear:  Exit Sub
Dim rFndRng As Range
Dim sAddress As String
Set rFndRng = rFindRange.Find(what:=sValue, LookIn:=xlValues, lookat:=xlWhole)
If rFndRng Is Nothing Then Exit Sub
ListBox1.Clear
sAddress = rFndRng.Address
Do
ListBox1.AddItem rFndRng
Set rFndRng = rFindRange.FindNext(rFndRng)
Loop While sAddress <> rFndRng.Address
End Sub

Private Sub ListBox1_Click()
On Error Resume Next
[a1] = Range("ДИАПАЗОН").Find(what:=ListBox1.Value, LookIn:=xlValues, lookat:=xlWhole).Value

Private Sub Button1_Click()
    If [A1] > 0 Then
        Me.Button.BackColor = vbRed
    ElseIf [A1] = 0 Then
        Me.Button.BackColor = vbGreen
    Else
        Me.Button.BackColor = vbBlue
    End If
End Sub