VB Code to split the text String

Try:

    arr1 = Split(Cells(7, 1), " ")
    arr2 = Split(arr1(1), "/")
    Cells(7, 6).Value = arr1(0)
    Cells(7, 7).Value = arr2(1)
    Cells(7, 8).Value = arr2(2)