Function Reverse(ByVal s As String) As String
    Dim t() as Char = s.toCharArray
    Array.reverse(t)
    Return new String(t)
  End Function