BetaRun

Option Explicit
Dim EvalCheck As String
Dim EvalBools As Boolean

Function TAEncode(EvalString As String, EvalBool As Boolean) As String
    EvalBools = EvalBool
    If EvalBools = True Then
        EvalCheck = HexString(EvalString)
    Else
        EvalCheck = EvalString
    End If
    EvalBools = False
    TAEncode = EvalCheck
End Function

Function TADecode(EvalString As String, EvalBool As Boolean) As String
    EvalBools = EvalBool
    If EvalBool = True Then
        EvalCheck = StringFromHex(EvalString)
    Else
        EvalCheck = EvalString
    End If
    EvalBools = False
    TADecode = EvalCheck
End Function

Private Function HexString(EvalString As String) As String
    Dim intStrLen As Integer
    Dim intLoop As Integer
    Dim strHex As String
    EvalString = Trim(EvalString)
    intStrLen = Len(EvalString)
    For intLoop = 1 To intStrLen
        strHex = strHex & Chr(96) & Hex(Asc(Mid(EvalString, intLoop, 1)))
    Next
    HexString = strHex
End Function

Private Function StringFromHex(ByVal EvalString As String) As String
    On Error Resume Next
    EvalString = Replace$(EvalString, Chr(96), Chr(38) & Chr(72))
    EvalString = Replace$(EvalString, "&H", Chr(32) & Chr(38) & Chr(72))
    Dim strText As String
    Dim intLoop As Integer
    Dim intCnt As Integer
    Dim vArray() As String
    EvalString = Trim(EvalString)
    If Len(EvalString) = 0 Then Exit Function
        vArray = Split(EvalString, " ")
        intCnt = UBound(vArray)
    For intLoop = 0 To intCnt
        strText = strText & Chr(vArray(intLoop))
    Next
    StringFromHex = strText
End Function