I just wrote a activeX dll
one class module is called IMesagePassing, the code:

Option Explicit

Public Sub MessageSend(ByVal vText As String)

End Sub

the other is called CSending, the code:

Option Explicit

Implements IMessagePassing

Private Sub IMessagePassing_MessageSend(ByVal vText As String)

SendKeys vText

End Sub

Public Sub MSending(ByVal vText As String)

SendKeys "Hello"
SendKeys vText

End Sub

the client's code, which calls the dll

Dim Message As String

Private Sub Timer1_Timer()

Message = "hey"
Dim Sending1 As CSending
Set Sending1 = New CSending
Sending1.MSending Message
Set Sending1 = Nothing

End Sub

the problem is i only can get "hello" not "hey", but really want "hey" instead of "hello". could some experts help out of this? any help will be highly appreciated.
wenyu