in VB, la Split funziona solo se la stringa è delimitata da un separatore che non sia una stringa nulla...
pertanto se hai questa esigenza la funzione te la devi creare.

eccone una che fa quello che ti serve:

codice:
Function SplitEx(Valore As Variant) As Variant
Dim s() As String
ReDim s(Len(Valore) - 1)
For K = 1 To Len(Valore)
    s(K - 1) = Mid$(Valore, K, 1)
Next K
SplitEx = s
End Function
la funzione restituisce un array contentente un numero di elementi pari al numero dei caratteri dell'argomento passato.

la puoi usare così:

codice:
Dim A As String
Dim B() As String
A = "12345"
B = SplitEx(A)
Boolean