Private Function ColorSet(Datos As String)
Select Case Datos
Case "0"
ColorSet = vbBlack
Case "1"
ColorSet = vbRed
Case "2"
ColorSet = vbGreen
Case "3"
ColorSet = vbYellow
Case "4"
ColorSet = vbBlue
Case "5"
ColorSet = &HFFFF00
Case "6"
ColorSet = 16711935
Case "7"
ColorSet = vbWhite
End Select
End Function

Private Function dd(Datos As String)
Dim i, Conteo, LLeva
LLeva = 0
Conteo = 0
For i = 1 To Len(Datos)
Conteo = Conteo + 1
If Mid(Datos, i, 1) = "@" Then
LLeva = LLeva + 1
Add.Text = Add.Text & Mid(Datos, i - Conteo + 1, Conteo - 1)
Add.SelStart = i - Conteo - LLeva + 1
Add.SelLength = Conteo - 1
Add.SelColor = ColorSet(Mid(Datos, i + 1, 1))
conteo = "0"
Else
End If
Next i
End Function

Publicado por: Elemental Code
Insertar Cita
ni idea como se hace  soy medio nuevo pero entendi lo que queres hacer aver si alguien te da una mano.

Con un codigo obtenes el MD5 de una frase o palabra o texto.

y queres que despues con el MD5 que habias sacado recuperes la palabra¿

es asi?