Text to columns, pick text from a string in cell

Hello forum,
Text to Columns does not work for this text string, it is picked up from GPS data and the text strings differ.
Is there a way to use find text in string and pick out the correct data and ignore the rest!?

I attached an sample file how it looks like and the wanted result

I hope you experts here have an solution to this problem.

Happy New Year

Regards

Possibly like this, copied down:

E21 =MID($E2,FIND("Longitude",$E2)+11,9)
F21 =MID($E2,FIND("Latitude",$E2)+10,9)
G21 =MID($E2,FIND("Altitude",$E2)+10,13)
H21 =IFERROR(MID($E2,FIND("Speed",$E2)+10,13),"")

And are you not able to tweak very slightly what I have given you to make it work?

Locked out of the Forum ... AGAIN.

See the modified formulae for the two problematic columns, in the attached sheet. I can't post the formula here cos of daft security restrictions on the forum.

You're welcome and thanks for the Rep...

Another way

Sub abc()
 Dim tmp
 Dim matches
 
 With CreateObject("vbscript.regexp")
    .Pattern = "<td>(.*?)<\/td>"
    .Global = True
    .IgnoreCase = True
    For rw = 1 To Cells(Rows.CountLarge, "a").End(xlUp).Row
        tmp = Cells(rw, 5).Value
        If .Test(tmp) Then
            For Each matches In .Execute(tmp)
                Select Case True
                    Case Is = InStr(1, matches.submatches(0), "Longitude: ")
                        Cells(rw, 5).Value = Replace(matches.submatches(0), "Longitude: ", "")
                    Case Is = InStr(1, matches.submatches(0), "Latitude: ")
                        Cells(rw, 6).Value = Replace(matches.submatches(0), "Latitude: ", "")
                    Case Is = InStr(1, matches.submatches(0), "Altitude: ")
                        Cells(rw, 7).Value = Replace(matches.submatches(0), "Altitude: ", "")
                    Case Is = InStr(1, matches.submatches(0), "Speed: ")
                        Cells(rw, 8).Value = Replace(matches.submatches(0), "Speed: ", "")
                End Select
            Next
            If IsDate(Cells(rw, 4).Value) Then
                Cells(rw, 9).Value = VBA.FormatDateTime(Cells(rw, 4).Value, vbShortDate)
                Cells(rw, 10).Value = VBA.FormatDateTime(Cells(rw, 4).Value, vbLongTime)
            End If
        End If
    Next
 End With

End Sub