User Sam - Stack Overflow

Sam

361

reputation

United Kingdom
Member since August 29 2019
21 profile views
Last seen Aug 28 '23 at 11:11

Sub Profile_Load() 
    Me.Name = "Sam"
    Me.Enthusiasm = Weekday(Now) + Coffee(True, True)
    Me.Welcome
End Sub

Function Coffee(Milk As Boolean, Sugar As Boolean) As Integer
    Coffee = 1 + IIf(Milk, 1, 0) + IIf(Sugar, 1, 0)
End Function

Sub Welcome()
    MsgBox "Hi"
End Sub