hello charlie

Function ntoa(str As String) As String

    Dim c() As String
    Dim temp As String
    c = Split(str, "_")

    On Error GoTo err1

    For cntA = 1 To UBound(c()) - 1

        temp = temp & Chr(CLng(c(cntA)))

    Next cntA

err1:

    ntoa = temp


End Function