Private Function AscToChar(ByVal sAsc As String) As String        Dim iLen As Integer        Dim i As Integer        On Error GoTo err_Trans        AscToChar = ""        iLen = CInt(Len(sAsc) / 2)        For i = 0 To iLen - 1            If CInt("&H" & Mid(sAsc, i * 2 + 1, 2)) < &H20 Then                AscToChar = ""                Exit Function            Else                AscToChar = AscToChar & Chr(CInt("&H" & Mid(sAsc, i * 2 + 1, 2)))            End If        Next iexit_Trans:        Exit Functionerr_Trans:        AscToChar = ""        Resume exit_Trans    End Function