I have a problem where my paste command is getting done before my
instruction to move to the next cell. Causing my value to get put into
my first box instead of the second, then it moves to the next box.

It's supposed to (select sheet "0", select a cell specified cell, move
down "MyValue". Then go to the "Entry" sheet, copy a specified cell,
return to sheet "0" and paste the value into the newly selected cell)

------ Here's the code ---

Public MyValue As Integer
----------------------------------

Sub Macro2()

Dim Message, Title, Default, MyValue
Message = "Enter the Day you are working on." ' Set prompt.
Title = "Current Day" ' Set title.
Default = "" ' Set default.


MyValue = InputBox(Message, Title, Default)
Sheets("0").Select
Application.Goto Reference:="R4C22"
ActiveCell.Select
Application.SendKeys "{DOWN " + MyValue + "}"

Sheets("Entry").Select
Range("G89").Select
Selection.Copy

Sheets("0").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
--------------------------------

Any help will be greatly appreaciated.
Thanks,
Allen (WinXP/ExcelXP/VB6.3)