Function reverseString2(ByVal Str As String) As String
    Dim R As String = ""
    For Each Chr As Char In Str.ToCharArray()
        Dim InsertChar As Char
        Select Case Chr
            Case "("c
                InsertChar = ")"c
            Case ")"c
                InsertChar = "("c
            Case "{"c
                InsertChar = "}"c
            Case "}"c
                InsertChar = "{"c
            Case "["c
                InsertChar = "]"c
            Case "]"c
                InsertChar = "["c
            Case Else
                InsertChar = Chr
        End Select
        R = R.Insert(0, InsertChar) '処理に掛かった時間(312500Ticks) 処理が速いこちらのコードを採用
        'R = InsertChar & R '処理に掛かった時間(468750Ticks) 可読性ならこっちかな
    Next
    Return R
End Function