Ciao a tutti, mi sono appena iscritto per un problema con le DLL di VB che mi fa dannare:

Ho creato questa DLL con VB:

Option Explicit

Public Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)

Public Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type


Private Sub Main()
End Sub

Public Function SDAY() As Integer
Dim S As SYSTEMTIME
Call GetSystemTime(S)
SDAY = S.wDay
End Function

chiamandola S.dll

Ora se provo a usarla in un nuovo progetto di VB
con il codice

Public Declare Function SDAY Lib "S" () As Integer

Sub Main()
Dim m
m = MsgBox(SDAY(), vbInformation, "")
End Sub
va tutto bene, ma se metto lo stesso codice in un modulo VBA di Word
NON FUNZIONA e manda in crash il programma.

Perche ?
ci sto diventando matto !?!
Aiutatemi vi prego