26fig05

Microsoft Access - [Module: Modulel]
File Edit View Run Window Help
| |jp| 11(generał) [_£j |Greetings |_±J		!|P|	1 l»l*l	LJ		1	o|¥?|

Sub Greetings (VourNane As String)

Din Reply As Integer ublnfornation = 64 ubQuestion = 32 ubVesNo = 4 ubVes = -1

Reply = MsgBox("Hello " & VourNane & ", are you ready to conpute?", ubQues If Reply = ubVes Then

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

Elsę

MsgBox "I'n sorry to hear that, but you nust.", ublnfornation End If

End Sub

iLL

Ready

l    ŃUM