VB.NET版本的QuotedStr

程序是照着delphi的源程序改的，请注意delphi的字符串数组是1-based的，而vb.net是0-based的。
感觉delphi在这一点在数组的base上有点不统一。

   Public Shared Function QuotedStr(ByVal S As String) As String
       Dim I As Integer
       Dim Result As String = S
       For I = Len(Result) - 1 To 0 Step -1
           If Result.Chars(I) = "'" Then Result = Result.Insert(I, "'")
       Next
       Result = "'" + Result + "'"

       Return Result
   End Function