Difference in ticks in both versions and how to eliminate them

Sub Process_Globals
   Dim NET_TICKS_AT_EPOCH, NET_TICKS_PER_MILLISECOND As Long
   NET_TICKS_AT_EPOCH = 621355968000000000
   NET_TICKS_PER_MILLISECOND = 10000
End Sub

Sub ConvertNetToB4A(NetTicks As Long) As Long
   Return (NetTicks - NET_TICKS_AT_EPOCH) / NET_TICKS_PER_MILLISECOND
End Sub

Sub ConvertB4AToNet(Ticks As Long) As Long
   Return Ticks * NET_TICKS_PER_MILLISECOND + NET_TICKS_AT_EPOCH
End Sub