Late bind ActiveX DLL problem

[Chris]

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
Dim AESobj As Object
Dim boolResult As Boolean
Const HKEY_CURRENT_US ER As Integer = &H80000001
Dim strResult As String
AESobj = CreateObject("A ESRegLib.AESReg istryObject")
boolResult = AESobj.WriteStr ing(HKEY_CURREN T_USER, "Software\Examp le Reg
Path", "Example String Value", "hellovb.ne t")
If boolResult Then
MsgBox("Write: Success")
Else
MsgBox("Write: Failed")
End If
boolResult = AESobj.ReadStri ng(HKEY_CURRENT _USER, "Software\Examp le Reg
Path", "Example String Value", strResult)
'MsgBox(strResu lt)
'http://groups.google.c om/groups?q=vb+.NE T+late+bind+byr ef&hl=en&lr=&ie =UTF-
8&oe=UTF-8&selm=bdbb913a .0401151204.93c 973c%40posting. google.com&rnum =1
End Sub
The above code work in its entirety, except the

boolResult = AESobj.ReadStri ng(HKEY_CURRENT _USER, "Software\Examp le Reg
Path", "Example String Value", strResult)

It keeps giving me back " An unhandled exception of type
'System.Runtime .InteropService s.COMException' occurred in
microsoft.visua lbasic.dll

Additional information: Type mismatch. " .

Not sure why it's giving this, code looks fine to me. Anyone got any ideas?
The following is the working code in VB6.

Thanks
The VB6 code (working):

Option Explicit
Dim reg As New AESRegistryObje ct
Dim strResult As String
Dim boolResult As Boolean '
Private Sub Form_Load()
boolResult = reg.WriteString (HKEY_CURRENT_U SER, "Software\Examp le Reg Path",
"Example String Value", "hello")

If boolResult Then MsgBox "Write : Success" Else MsgBox "Write : Fail"
boolResult = reg.ReadString( HKEY_CURRENT_US ER, "Software\Examp le Reg Path",
"Example String Value", strResult)
If boolResult Then
MsgBox "Read result = " & strResult
Else
MsgBox "Registry read failed"
End If
End Sub

[Armin Zingler]

"Chris" <jt******@comca st.net> schrieb

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
Dim AESobj As Object
Dim boolResult As Boolean
Const HKEY_CURRENT_US ER As Integer = &H80000001
Dim strResult As String
AESobj = CreateObject("A ESRegLib.AESReg istryObject")

Why don't you use the Registry and RegistryKey classes (namespace
Microsoft.Win32 )?
--
Armin

How to quote and why:
http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[Chris]

I obviously can, but I've ben asked to do this.

"Armin Zingler" <az*******@free net.de> wrote in message
news:uN******** ******@TK2MSFTN GP09.phx.gbl...

"Chris" <jt******@comca st.net> schrieb

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
Dim AESobj As Object
Dim boolResult As Boolean
Const HKEY_CURRENT_US ER As Integer = &H80000001
Dim strResult As String
AESobj = CreateObject("A ESRegLib.AESReg istryObject")

Why don't you use the Registry and RegistryKey classes (namespace
Microsoft.Win32 )?
--
Armin

How to quote and why:
http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html