Example - Month Function

Sub Main()
   MyDate = "08/18/22"
   MsgBox "MyDate is: " & MyDate
   'MsgBox MyDate
   x = Month(MyDate)
   MsgBox "MyDate's month is: " & x
End Sub