How's this for you?

Sub GetQuoted()

Const sDELIMITER = " "

Dim sTestString As String
Dim avSplitText As Variant
Dim lLoop As Long
Dim sTmpString

sTestString = "aliasid:6558 enabled:0 yk:2 aclass:1 ticker:" & Chr(34) & "SHE US" & Chr(34) & "aliastext:" & Chr(34) & "SHENGKAI" & Chr(34) & " strength:1003 chgid:1826630 usage:2"
sTmpString = ""

avSplitText = Split(sTestString, Chr(34))

For lLoop = LBound(avSplitText) + 1 To UBound(avSplitText) Step 2
  sTmpString = sTmpString & avSplitText(lLoop) & sDELIMITER
Next lLoop

If Len(sTmpString) > 0 Then
  sTmpString = Left(sTmpString, Len(sTmpString) - Len(sDELIMITER))
End If

MsgBox sTmpString

End Sub