Private Sub Form_Load()
    MsgBox getTicksFromDate(DateSerial(2014, 6, 30) + TimeSerial(19, 54, 32))
    MsgBox getTicksFromDate(Now)
End Sub

Function getTicksFromDate(DateTime As Date) As String
    Dim nDate As Double
    Dim nAddSecond As Double

    '59926608000 + 7 нулей. Представляет стартовую точку 1900.01.01 00:00:00
    nDate = 59926608000#
    nAddSecond = DateDiff("s", #1/1/1900#, DateTime)
    
    getTicksFromDate = CStr(nDate + nAddSecond) & "0000000"
End Function

Module Module1
    Sub Main()
       
        Console.WriteLine(Now.ToUniversalTime.Date.Ticks)

        Console.WriteLine(New Date(2014, 6, 30, 19, 54, 32).Ticks)
        Console.WriteLine(New Date(10000000, DateTimeKind.Utc))

        Console.ReadLine()
    End Sub
End Module