Segue sugestão.

Cole o código abaixo em um botão:

Dim valorVerif As String
 '    ALTERE OS NOMES DOS OBJ.(LISTBOX E TEXTBOX) SE NECESSARIO
 
    With Me.ListBox1
        valorVerif = Me.TextBox1.Value
        
        For i = 0 To .ListCount - 1
            
            If i < 1 And .List(i, 2) > VBA.CDec(valorVerif) Then 'p/ vlrs < q da lista
                MsgBox .List(i, 2)
                
                Exit Sub
                
                ElseIf .List(i, 2) > VBA.CDec(valorVerif) Then
                If VBA.Abs(.List(i - 1, 2) - VBA.CDec(valorVerif)) >= VBA.Abs(.List(i, 2) - _
                                                                VBA.CDec(valorVerif)) Then
                    MsgBox .List(i, 2)
                 
                Else
                    MsgBox .List(i - 1, 2)
                    Exit Sub
                End If
                Exit Sub
              
            Else
                
            End If
        Next i
        
        MsgBox .List(i - 1, 2) 'p/ vlrs > q da lista
        
    End With

Opa Basole não funcionou amigo, ele traz o valor errado. Não esta trazendo o mais próximo. Eu tinha usado um Vlookup, mas tbm nao deu

Se possível, envie o arquivo, ou um modelo com alguns os dados.

Basole,
Eu preciso na verdade é saber como eu faço para achar o menor numero de uma coluna do listbox no meu caso na coluna 2

Menor numero na listbox .: 1,01

exemplo.:

coluna 2
7,04
6,81
1,80
8,91
1,01
9,81

Obrigado Basole consegui!

Public Sub min_max()

    Dim i As Long
    Dim listArr() As Double
    Dim offSet As Long
    
    ReDim listArr(0 To Me.ListBox1.ListCount - 1)
    offSet = 0
    
    For i = 0 To Me.ListBox1.ListCount - 1
        If Not IsNull(Me.ListBox1.List(i, 1)) Then
            listArr(i - offSet) = Me.ListBox1.List(i, 1)
        Else
            offSet = offSet + 1
        End If
    Next
    ReDim Preserve listArr(0 To UBound(listArr) - offSet)
    Me.TextBox2 = Application.Max(listArr)
    Me.TextBox3 = Application.Min(listArr)
End Sub