encriptar en md5 con vb6

[mveraa]

hola gracias por tu coperacion , pero no se como usarla , la baje e instale el componete y lo agrege en las referecias

y puse el codigo que vi asi:


generales:
Dim obj As MD5Lib.MD5Com

Private Sub Command1_Click()

Set obj = New MD5Lib.MD5Com
Dim md5file
md5file = obj.GetMD5File("C:\yourfile.dat")
Dim md5string
md5string = obj.GetMD5("MD5 by Traction Software")



End Sub



dice "no se ha definido el tipo definido por el usuario"

¿en que me equivoco?



muchas gracias por las orientaciones