Trouble with Split function

[Glory]

I don't understand how to use this function.

MsgBox Split(ActiveCell.Contents)

This returns type mismatch. Everything I do with this returns type mismatch, including:

a = Split(ActiveCell.Value)
ActiveCell.Offset(1, 0).Value = a

...as well as...

Do
b = b + 1
ReDim Preserve a(1 To b)
a() = Split(ActiveCell.Value, , 3)
ActiveCell.Offset(b, 0).Value = a(b)
Loop Until b = 3

Please help me figure out how to use the split function.

 

[Glory]

Got it to work. It was the msgbox, for some reason I can't just display the split substring in a message box. I have to put it into a cell. Working code:

Public a(3)
Sub test()
For i = 1 To 3
a(i) = Split(Right(Range("A1")), 3)
Range("b" & i).Value = a(i)
Next
End Sub