C# と VB.NET の質問掲示板

■No68845 (ちび さん) に返信
> VB6.0で作成したソースを、VB2010で置き換える方法がわかりません。
> System.Text.Encoding.GetEncoding(???).GetString
> を使って変換可能でしょうか。

意図をくみ取れているかは自信がありませんが：

Public Sub Main()

    Dim sample() = New Byte() {&H24, &H22, &H24, &H24, &H24, &H26}
    MsgBox(BinToString(sample, False))
    MsgBox(BinToString(sample, True))

End Sub

Public Function BinToString(ByVal bin() As Byte, Optional forceKanji As Boolean = False) As String
    Dim xIn(-1) As Byte
    Dim xOut(-1) As Byte
    If forceKanji Then
        xIn = New Byte() {&H1B, &H24, &H42}
        xOut = New Byte() {&H1B, &H28, &H42}
    End If

    Dim enc = System.Text.Encoding.GetEncoding("ISO-2022-JP", _
            New System.Text.EncoderReplacementFallback(), _
            New System.Text.DecoderExceptionFallback())
    
    Return enc.GetString(xIn.Concat(bin).Concat(xOut).ToArray())
End Function