I have the following Module working in excel that does a search and upon finding pastes the entire line to sheet2 from sheet. What I would like to do is connect it with a form, allowing you to enter in a textbox what text you'd like to search for, and then select what sheet to look in, and then what sheet to paste into. I'm a javascript/vb-script programmer and don't know vba to well to be able to accomplish this task. PLEASE HELP ME GUYS, after I get it finished I'll post a link for everyone to download it, because it is extreamly useful.

Enum eLookin
xlFormulas = -4123
xlComments = -4144
xlValues = -4163
End Enum

Enum eLookat
xlPart = 2
xlWhole = 1
End Enum

Function Find_Range(Find_Item As Variant, _
Search_Range As Range, _
Optional LookIn As eLookin, _
Optional LookAt As eLookat, _
Optional MatchCase As Boolean) As Range

Dim c As Range, FirstAddress As String
If LookIn = 0 Then LookIn = xlValues
If LookAt = 0 Then LookAt = xlPart
If IsMissing(MatchCase) Then MatchCase = False

With Search_Range
Set c = .Find( _
What:=Find_Item, _
LookIn:=LookIn, _
LookAt:=LookAt, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=MatchCase, _
SearchFormat:=False) 'Delete this term for XL2000 and earlier
If Not c Is Nothing Then
Set Find_Range = c
FirstAddress = c.Address
Do
Set Find_Range = Union(Find_Range, c)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> FirstAddress
End If
End With

End Function

Sub ExecuteSearchCopyPaste()
x = "search-text-here"
Set Found_Range = Find_Range(x, Sheet1.Columns("A"), xlValues, xlPart).EntireRow
Found_Range.Copy Range("Sheet2!B65536").End(xlUp).Offset(1, 0).EntireRow
End Sub