VBA/UserForm: Find max, min value and less than 4000 in selected listbox items

[ZerIo_0I]

Hello all
I really need your help as the topic title says I need to find the minimum, maximum, less than 4000 among the selected listbox items.

UserForm.xlsm
	A	B
1	Employee	Salary
2	Gilmore	3440
3	Stone	6780
4	Horton	10244
5	Rice	5432
6	McDaniel	20544
7	Fowler	12322
8	Paul	5440
9	Burns	7656
10	Robertson	4568
UserForm

I already have a form, but I have no idea how to do those operations
Thank you in advance

 

[Legacy 143009]

I don't know your object names. So you have to replace them with the items on your form:

Private Sub CalculateButton_Click() 'Must be original button name
  Dim listboxItems() As Long
  Redim listboxItems(ListBox1.ListCount-1) 'Must be original Listbox Name
  For i = 0 To ListBox1.ListCount-1
    listboxItems(i) = Val(ListBox1.List(i ))
  Next i
  If MinButton.Value Then 'Must be original radio button name
    TextBox1 = Application.WorksheetFunction.Min(listboxItems)
  End If
  If MaxButton.Value Then 'Must be original radio button name
    TextBox1 = Application.WorksheetFunction.Max(listboxItems)
  End If
  If lessThan400Button.Value Then 'Must be original radio button name
      For i = 0 To ListBox1.ListCount-1
        If listboxItems(i)<4000 Then
          TextBox1 = listboxItems(i)
          Exit For
        End If
    Next
  End If
End Sub