RibbonUI problem

[elektor]

I have a maro like this. I have used a userform for this macro.

Private Sub CommandButton6_Click()
Dim i As Single
For i = 7 To 2500
If Cells(i, 2).Value = TextBox1.Value Then
Cells(i, 6).Select
Exit Sub
Else
End If
Next
MsgBox ("There is no such thing")
End Sub

Now i have Office 2007 and I want to change the RibbonUI and run this makro via RibbonUI. I want to creat a button and editBox in the RibbonUI and run this macro with added button. How can i manage to find the cell of writen text in the editbox .
And if possible, i want to default value of the editbox is avatar.
Could you help me please.

 

[elektor]

update

 

[Krishnakumar]

Hi,

Here are some links which might help you to begins with

http://www.rondebruin.nl/ribbon.htm
http://www.excelguru.ca/blog/2006/12/01/ribbon-example-table-of-contents/
http://www.excelfox.com/forum/forumdisplay.php?9-Ribbon-Fluent-User-Interface

 

[elektor]

updete