制御文字を可視化する

VisualizeControlCharacter.ps1

function VisualizeControlCharacter($s) {
    -join (
        $s.ToCharArray() |
        % {
            switch -regex ($_){
                '[\u0000-\u001F]' { [Char]([Int16]$_ + 0x2400) };
                '[\u0020]'        { [Char](0x2423) };
                '[\u007F]'        { [Char](0x2421) };
                default           { $_ };
            }
        }
    )
}

VisualizeControlCharacter.vba

Function VisualizeControlCharacter(s As String)

    For i = 0 To &H20
        s = Replace(s, Chr(i), ChrW(&H2400 + i))
    Next

    s = Replace(s, Chr(&H7F), ChrW(&H2421))

    VisualizeControlCharacter = s

End Function