Function messagebox_demo()
MsgBox ("Welcome")
a = MsgBox("Do you like blue color?", 4, "Choose options")
MsgBox ("The value of a is " & a)

'conversion from numbers to string
If a = 6 Then
answer = "Yes"
ElseIf a = 7 Then
answer = "No"
End If

'return the value of answer
messagebox_demo = answer
End Function