Option Explicit


Sub Macro()
Const strWB As String = "C:\Path\Workbookname.xlsx"
Dim xlApp As Object
Dim xlWb As Object
Dim xlSheet As Object
Dim Result As String
Dim oFrm As UserForm2

    Set oFrm = New UserForm2
    With oFrm
    .Show
    
    On Error Resume Next
    Set xlApp = GetObject(, "Excel.Application")
    If Err Then
        Set xlApp = CreateObject("Excel.Application")
    End If
    On Error GoTo 0
    
    Set xlWb = xlApp.Workbooks.Open(strWB)

    xlWb.Application.Visible = False
    
    For Each xlSheet In xlWb.Sheets
        If xlSheet.Range("B3").Value = .TextBox1.Text Then
            Result = xlSheet.Range("B9").Value
            FillBM "bm3", Result
            Exit For
        End If
    Next xlSheet
    xlWb.Close
    xlApp.Quit
    End With
    Unload oFrm
End Sub