Public Function DecodeText(mytext As String)
Dim intLength As Integer
Dim i
Dim strCurrentLetter As String
Dim strNewText As String
intLength = Len(mytext)
For i = 1 To intLength
strCurrentLetter = Mid(mytext, i, 1)
Select Case strCurrentLetter
Case "{"
strNewText = strNewText & "D"
Case "t"
strNewText = strNewText & "a"
Case "r"
strNewText = strNewText & "v"
Case "4"
strNewText = strNewText & "i"
Case Else
'Do nothing
'Add more 'Case' statements above to convert more letters that are encoded
End Select
Next
DecodeText = strNewText
End Function
|