Function NumOfDays() NumOfDays = 7End Function Sub DaysInAWeek() MsgBox "There are " & NumOfDays & " days in a week."End Sub