Remove text between quotes, variable length and number of quotes

Sub snb()
 c00 = "aliasid:6558 enabled:0 yk:2 aclass:1 ticker:""SHE US"" aliastext:""SHENGKAI"" strength:1003 chgid:1826630 usage:2"
 msgbox  Join(Filter(Split(Replace("~" & c00, Chr(34) & Space(1), Chr(34) & "~"), Chr(34)), "~", False))
End Sub