Moving a string with an array

Array | String This is 2 inverse function for string processing
Features: Moving strings
With Hair: Arymoveleft ("string", the number of moves)
Cases:
Dim Strg
Strg= "123456789"
Strg=arymoveleft (strg,2)

Result: strg= "345678912"



Public Function arymoveleft (str, count)
If count = 0 Then
Arymoveleft = str
Exit Function
End If
Dim A ()
strlen = Len (str)
ReDim A (strlen)
For i = 1 to Len (str)
A (i) = Mid (str, I, 1)
Next
temp = A (1)
For i = 2 to Len (str)
A (i-1) = A (i)
Next
A (strlen) = Temp
For i = 1 to Len (str)
Result = result & A (i)
Next
Arymoveleft = Arymoveleft (result, count-1)
End Function
Public Function arymoveright (str, count)
If count = 0 Then
Arymoveright = str
Exit Function
End If
Dim A ()
strlen = Len (str)
ReDim A (strlen)
For i = 1 to Len (str)
A (i) = Mid (str, I, 1)
Next
temp = A (strlen)
For i = Len (str) to 2 Step-1
A (i) = A (i-1)
Next
A (1) = Temp
For i = 1 to Len (str)
Result = result & A (i)
Next
Arymoveright = Arymoveright (result, count-1)
End Function