Sub TheTimeIsInTheSilentPeriods() As Boolean
Dim blnReturnValue As Boolean = False
Dim lngTicksNow As Long = DateTime.Now
Dim lngTicksStartTime As Long = DateTime.TimeParse(strSilentPeriod1Start)
If lngTicksNow => lngTicksStartTime Then
ToastMessageShow("The time is part of the silent period.", False)
End If
Return blnReturnValue
End Sub