Decoding a string

Hello wilro85,

The VBA string command Mid will let you specify the starting point, and number of characters to return from the string.

Sub Test()
  
  Dim CCh As Long
  Dim Char As String
  Dim I As Long
  Dim S As String

    CCh = 1   'Count of Characters to return
    S = "ABCDE12345"

    For I = 1 To Len(S)
      Char = Mid(S, I, CCh)
    Next I

End Sub