'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
DateTime.SetTimeZone(DateTime.TimeZoneOffset) '<---
DateTime.DateFormat = "MM/dd/yyyy"
'1488 +
' AlphaH = Array As String("Alef", "Bet", "Guimel", "Dalet", "He", "Vav", "Zayin", "Het", "Tet", "Yod", _
' "Kaf_End", "Kaf", "Lamed", "Mem_End", "Mem", "Nun_End", "Nun", "Samekh", "Ayin", "Pe_End", "Pe", _
' "Tsade_End", "Tsade", "Qoph", "Resh", "Shin", "Tav")
Alpha = "ABGDHVZJTYcCLmMnNSIpPqQKRWX"
End Sub