The Data looks like this:
057359-001 Pip Drt329 Auburndale, Fl (aub) - Pompano Beach, Fl (pob) 1:0 10gbe Lan Phy.
MyArr(0) ends up "057359-001" which is correct.
MyArr(1) ends up "Pip" only which is incorrect.
I need MyArr(1) to bring back the rest of the Data 'everything else after the first space'.
What do I need to do?

Code:
       Sub SplitProj()
            Dim myArr() As String
            Dim ProjNum As String
            Dim ProjName As String
        
            For Each Tcell In Sheets("Data").Range("E3:E100").Value
            myArr = Split(Tcell, " ")
            ProjNumber = myArr(0)
            ProjName = myArr(1)
              
    MsgBox myArr(0) & " " & myArr(1)

        Next
    End Sub