Use code like

Dim Res As VbMsgBoxResult
Dim PartNum As String
Do
PartNum = InputBox("Enter part number")
If PartNum = vbNullString Then
Exit Sub
End If
Res = MsgBox("The part number is: " & PartNum, vbYesNo)
Loop Until Res = vbYes

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2009
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)



On Fri, 13 Feb 2009 07:04:01 -0800, John
wrote:

I am trying to establish a macro with a message box to loop through until the
Yes button is pressed. I am using Excel 2003. My code is below:

Sub Test()
Dim PartNum As String

Do
PartNum = InputBox("Enter in Part Number:", "Part Number")
If PartNum = "" Then End
If MsgBox("The Part Number is: " & PartNum, vbYesNo) < vbYes Then
End If
Loop Until vbYesNo = vbYes

Worksheets("Sheet1").Range("H10").Value = PartNum
End Sub