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