Public Function ChrToAsc(strString As String) As String
    Dim strAsc As String
    Dim lngLength As Long
    Dim i As Long
 
    'Länge des Strings ermitteln
    lngLength = Len(strString)
 
    For i = 1 To lngLength
        If strAsc <> "" Then
            strAsc = strAsc & "-" & CStr(Asc(Mid(strString, i, 1)))
        Else
            strAsc = CStr(Asc(Mid(strString, i, 1)))
        End If
    Next i
 
    ChrToAsc = strAsc
End Function