This should work

Sub k1()
Dim i, l, m, n As String
Dim j, k As Integer
m = ""
i = "X1234567X"
For j = 7 To 1 Step -1
k = Int(Rnd() * j) + 1
l = Mid(i, k + 1, 1)
n = Left(i, k) & Right(i, Len(i) - (k + 1))
Debug.Print i, k, l, n
m = m + l
i = n
Next j
Range("A1").Value = m
End Sub
Result is pasted into cell A1