Ó ano, velice nebezpečné

Function Prevod_Z_NA(source As Variant) As String

Const Z As String = "0123456789ABCDEF"
Const NA As String = "084C2A6E195D3B7F"

Dim TmpS As String
Dim OutS As String

Dim i As Integer

OutS = ""
If IsNull(source) Or source = "" Then
    Prevod_Z_NA = ""
Else
    For i = 1 To Len(source)
        TmpS = Mid(source, i, 1)
        If InStr(1, Z, TmpS, vbBinaryCompare) > 0 Then TmpS = Mid(NA, InStr(1, Z, TmpS, vbBinaryCompare), 1)
        OutS = OutS & TmpS
    Next i
    Prevod_Z_NA = OutS
End If

End Function

Doporučuji počítač již nezapínat, polít hořlavinou a zapálit, poté zakopat 5 metrů pod zem a zalít betonem.