Public Function AscToChr(strString As String) As String
    Dim strChr As Variant
    Dim strResult As String
    Dim i As Long
 
    'Länge des Strings ermitteln
    strChr = Split(strString, "-")
 
    For i = 0 To UBound(strChr)
        strResult = strResult & Chr(strChr(i))
    Next
    AscToChr = strResult
End Function