Visual Basic - GENERACION DE DLL y TEXTOS TRUNCADOS

Buenos Días.
Estoy tratando de crear una dll estandar windows para un código en visual basic 6.
Me trabaja corectamente los envios de datos long e Integer. Pero no los Strng, estos checan truncados.
EL dll tengo algo parecido a esto:

Public Function MD5_string(ByVal PRUEBA As Integer, ByVal strMessage As String)) As String
Open "C:\dprueba" For Output Shared As #1
Write #1, strMessage
Write #1, PRUEBA
MD5_string = MD5_bytes(abMessage, mLen)
Write #1, MD5_string
Close #1
End Function
El primer write STRMESSAGE coloca a blanco o "?". No importa qe le envie.
El Segundo write PRUEBA llega bien, el numero.
y EL tercero es generado un md5 de un blanco

al llamar la dll lo tengo así

Private Declare Function MD5_string Lib "C:\ruta\Fibonacci.dll" (ByVal PRUEBA As Integer, ByVal strMessage As String) As String
Private Sub cmdCalculate_Click()
MsgBox MD5_string(5, "ddd")
End Sub

E 5 llega al dll bien .

El problema como como comento es el truncado del texto al enviar y el md5 generado es de un blanco, pero lo que llega es un byte del MD5 de un blanco

D1457B72C3FB323A2671125AEF3EAB5D, no se si la primera o la ultima leta retorna una "D".

Como puedo hacer para que enve y retorne cadenas completas.?
Ninguna pagina veo como generar dll estandar windows con visal basic 6 que manejen string solo integer o long