Provide a quick, creative biography in 140 characters or less.
More bioI love coffee!
Sub MyCoffee ( )
'Macro MyCoffee by mmelson
‘This will refill my coffee and your coffee all day!
Dim ThisCoffee As Drink
MsgBox “GOOD MORNING!”
ThisCoffee = 1
Do While ThisCoffee.Empty <> “ ”
ThisCoffee.Refill
ThisCoffee.Sugar.Add
Answer = MsgBox("Do you want cream?", vbYesNo)
If Answer = vbYes Then
ThisCoffee.Cream.Add
Else
ThisCoffee.Drink
End If
ThisCoffee = ThisCoffee + 1
MsgBox “Your coffee is ready. Enjoy!”
Loop
End Sub