split the date

[kamakshi]

Hi!
i tried this to get Jul 5/10 and formate 06/05/10
but it gives type mismatch.pl help

Sub Sample()
Dim StrSample As String, MyArray() As String, Temp As String

StrSample = "RE: Password - Jul 5/10"

MyArray = Split(StrSample, "-")
MsgBox (MyArray)

End Sub