Hi Chris,
I did some minor changes to your VBA code and it worked for me. I added
the Private modifier as well as added a subroutine:

Private Declare Function get_system_time_C Lib "C:\Program
Files\Microsoft Visual Studio\MyProjects\060205dll\Debug\060205dll.dll"
_
(ByVal trigger As Long) As Double

Function Get_C_System_Time(trigger As Double) As Double
Get_C_System_Time = get_system_time_C(0)

Private Sub CommandButton1_Click()
MsgBox "Result is = " & Get_C_System_Time(2)
'note: change the number 2 to what you need
End Sub

John

*** Sent via Developersdex http://www.developersdex.com ***

It didn't wark for me any suggesstions. I have spent over 3 hours on
this problem.


*** Sent via Developersdex http://www.developersdex.com ***