Ao iniciar o formulário

Private Sub UserForm_Initialize()
    Dim INTERVALO As Range
    
    
    Set INTERVALO = ThisWorkbook.Sheets("Planilha1").Range("AC2:AC100")
    
    Dim cl As Object
    
    For Each cl In INTERVALO
        
        If cl.Value = "X" Then
           
            TextBox1.Text = ThisWorkbook.Sheets("Planilha1").Range("A" & cl.Row).Value
            Exit Sub
        End If
        
        
        
    Next cl
    
    
    
End Sub

Ao clicar no botão

Private Sub CommandButton1_Click()
Dim INTERVALO As Range
    
    
    Set INTERVALO = ThisWorkbook.Sheets("Planilha1").Range("AC2:AC100")
    
    Dim cl As Object
    
    For Each cl In INTERVALO
        
        If cl.Value = "X" Then
            
            TextBox1.Text = ThisWorkbook.Sheets("Planilha1").Range("A" & cl.Row).Value
            Exit Sub
        End If
        
        
        
    Next cl
End Sub

Se o código resolve, favor marcar o tópico como resolvido.
Se não resolve, favor dizer o que falta.