Function String2Array(ByVal strData As String) As Variant

Dim v() As String

Dim i As Integer

  ReDim v(Len(strData) + 1) As String

  v(0) = Chr(Len(strData))

  For i = 1 To Len(strData)

    v(i) = Mid(strData, i, 1)

  Next

  String2Array = v

End Function



Sub Form_Load()

Dim strTest As String

Dim vStringArray As Variant

  strTest = "Test String"

  vStringArray = String2Array(strTest)

  MsgBox vStringArray(3)               's

End Sub