Option Explicit
Private Sub CommandButton1_Click()
Dim TabContainer() As String, TheString As String
Dim x As Byte, i As Byte
If Me.TextBox1 = '' Then Exit Sub
For i = 1 To Len(Me.TextBox1)
ReDim Preserve TabContainer(x)
TabContainer(x) = Mid(Me.TextBox1, i, 1)
x = x + 1
Next
'Pour faire quelque chose
For i = 0 To UBound(TabContainer)
TheString = TheString & TabContainer(i) & vbCrLf & vbTab
Next
MsgBox 'Vous avez tapé ' & UBound(TabContainer) + 1 & ' caractères, comme suit ' & vbCrLf & vbTab & TheString
End Sub