String wspak co 2 znaki VB.NET 2010

Siemka, mam taki problem, ze nie wiem w jaki sposób przerobić kod, aby zwracał stringa wspak co 2 znaki. Na przykład:
abcd > cdab

Mam taki kod:

dane_wprowadzane = TextBox1.Text
        For i As Integer = Len(dane_wprowadzane) To 1 Step -1
            dane_wyprowadzane += dane_wprowadzane.Substring(i - 1, 1)
        Next i
        wyprowadz.Text = dane_wyprowadzane

Pomoże mi ktoś go przerobić?

Function GetBackwards(input As String) As String
	Dim output As String = ""
	For i As Integer = input.Length - 2 To 0 Step -2
		output += input.Substring(i, 2)
	Next
	If input.Length Mod 2 <> 0 Then
		output += input(0)
	End If
	Return output
End Function

Wielkie dzięki