[VB6] Eliminare parti da una stringa

[francesco_test]

pippo="Select * FROM Tabella ORDER BY Campo"

pippo=Replace(pippo," ORDER BY Campo","")

oppure

pippo=Trim(Replace(pippo,"ORDER BY Campo","")) ' per gli spazi prima e dopo la stringa