<?xml version="1.0" encoding="utf-8"?>
<CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  <CodeSnippet Format="1.0.0">
    <Header>
      <Title>Provides the reverse of a passed in string</Title>
      <Shortcut>Providesthereverseofapassedinstring</Shortcut>
      <Description>Provides the reverse of a passed in string [VB.NET]</Description>
      <Author>Marc Piulachs</Author>
      <HelpUrl>/PreviewSnippet.aspx?SnippetID=49087626-c16e-4fd9-827f-22d47c4e203f</HelpUrl>
      <SnippetTypes>
        <SnippetType>SurroundsWith</SnippetType>
      </SnippetTypes>
    </Header>
    <Snippet>
      <Code Language="VB"><![CDATA[    Private Function Reverse(ByVal value As String) As String
        If value.Length > 1 Then
            Dim workingValue As New System.Text.StringBuilder
            For position As Int32 = value.Length - 1 To 0 Step -1
                workingValue.Append(value.Chars(position))
            Next
            Return workingValue.ToString
        Else
            Return value
        End If
    End Function]]></Code>
    </Snippet>
  </CodeSnippet>
</CodeSnippets>