Language Basics VisualBasic Script

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