hi
not sure if you can have one input box of 3 entries but this might work for
you.
Sub clickbutton()
Dim var1 As String
Dim var2 As String
Dim var3 As String
var1 = InputBox("enter something")
var2 = InputBox("enter something else")
var3 = InputBox("enter something else")

Sheets("sheet2").Range("A65000").End(xlUp).Offset( 1, 0).Value = var1
Sheets("sheet2").Range("B65000").End(xlUp).Offset( 1, 0).Value = var2
Sheets("sheet2").Range("C65000").End(xlUp).Offset( 1, 0).Value = var3
MsgBox "Done"
End Sub

regards
FSt1

"Hawke" wrote:

Would appreciate some help or direction for the following chalange:
I have a spreedsheet for collecting info.
Want to be able to click on abutton and have a entry box pop up , fill in 3
fields, and have it copies to sheet 2 that is like a database, or copy to
first blank row.
Any direction appreciated

Roger