Hi,
try this.
Private Sub btnConvert_Click()
Dim str As String
Dim char As String
List1.Clear 'ListBox used for displaying splitten characters.
str = Text1.Text 'TextBox used for getting i/p string
For i = 1 To Len(str) Step 1
char = Mid(str, i, 1)
If char <> " " Then
List1.AddItem char
End If
Next i
End Sub