RosettaCodeData/Task/Reverse-a-string/Visual-Basic-.NET/reverse-a-string.visual

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