ok grazie
string = Replace(string,vbLf, "")