Visual Basic String Shifting

[Joacim Andersson]

Something like this:

Dim str As String
Dim newStr As String
Dim i As Long

str = "12345678"
For i = 1 To Len(str) Step 2
    newStr = Mid$(str, i, 2) & newStr
Next
MsgBox newStr