Trouble finding Sum of Table Data

[needshelp12]

Im using excel 2010 VBA

The data im trying to use is in this format

ID Date Description Debit
1 3/2/2000 Popeyes Ny 5.23
2
..

I created a user form to search the data.
In textbox1 i want to be able to enter "Popeyes"
Hit searchcommandbutton and it Find all Descriptions matching the first
part of what i entered and return the sum the debits (one column to the right) of those numbers in textbox2.

The range of the Descriptions is C10:C200
The range of the debits is D10:D200

Been working at trying to get this to work all day. If anyone could help me , much appreciated.

 

[BrianB]

Private Sub CommandButton1_Click()
    txt = "*" & TextBox1.Value & "*" ' asterisks allow entry of partial data
    s = Application.WorksheetFunction.SumIf(Range("C10:C100"), txt, Range("D10:D100"))
    TextBox2.Value = Format(s, "###,###.00")
End Sub