Dim str As String = "AA BB CC DD EE FF"
 
  Dim stb As New System.Text.StringBuilder(str.Length)
 
  For i As Integer = str.Length - 2 To 0 Step -3
     stb.Append(str.Substring(i, 2))
     If i > 0 Then stb.Append(" ")
  Next i