26fig01

15 Microsoft Excel - B00K1.XLS

4#* File Edit View insert Run Jools Window Help    j?J

□ |^ y

O | Oś

mm*> 1

u

w

u

¥171^1 1

'sT%l‘7T^l'^l

n

tii

1*1*1

U

[3 ub Dim

End

_

Greetings(YourName As String)

Reply As Integer

Reply = HsgBox ("Hello " £ YourName £ _

", are you ready to compute?", vbQuestion + vbYesNo)

If Reply = vbYes Then

MsgBox "Weil then, lets get busy!", vblnformation

Elsę

MsgBox "Tm sorry to hear that, but you must.'', vblnformation End If

Sub

_l< | 4 | ► | ►l[\ Modulel / Sheetl /

Ready

NUM