Private Sub CommandButton1_Click()
Dim thecabinets As DominoDoc.Cabinets
Dim thecabinet As DominoDoc.Cabinet
Dim thebinders As DominoDoc.Binders
Dim theBinder As DominoDoc.Binder
Dim thedocuments As DominoDoc.Documents
Dim theDocument As DominoDoc.Document
Dim tStart, tEnd As Date

Set theApi = New Api
Call theApi.SetHttpLogin("userid", "pwd")
Set theLibrary = theApi.GetLibrary("http://acme.com/domdoc/samplelib.nsf")
System.Cursor = wdCursorWait
If Len(txtBillNumber) < 8 Then
    Set thecabinets = theLibrary.Cabinets
    Set thecabinet = thecabinets.ItemByTitle("Cabinet Title")
    'Set thebinders = thecabinet.Binders
    'Set theBinder = thebinders.ItemByTitle("Binder Title")
    tStart = Time
    'Set thedocuments = theBinder.Documents
    'Set theDocument = thedocuments.ItemByTitle(UCase(txtBillNumber))
    Set thedocuments = thecabinet.SearchDocuments(UCase(txtBillNumber), 0, 0, 0)
    Set theDocument = thedocuments.ItemByIndex(0)
    tEnd = Time
    MsgBox (DateDiff("s", tStart, tEnd))
End If
System.Cursor = wdCursorNormal
End Sub