The code I provided is a sample to show you how to get what you requested. You need to apply it to your current code. I imagine you have a loop setup already that goes through column F. If you don't, here is some more example code:
Sub tgr()
    
    Dim rngF As Range
    Dim FCell As Range
    Dim arrCodes() As Variant
    Dim CodeIndex As Long
    
    Set rngF = Range("F1", Cells(Rows.Count, "F").End(xlUp))
    ReDim arrCodes(1 To rngF.Rows.Count)
    
    For Each FCell In rngF.Cells
        CodeIndex = CodeIndex + 1
        arrCodes(CodeIndex) = Split(Trim(FCell.Text), " ")(0)
    Next FCell
    
    MsgBox Join(arrCodes, Chr(10))
    
    Set rngF = Nothing
    Set FCell = Nothing
    Erase arrCodes
    
End Sub