Data=Mid(Data,1,Len(Data)-5)
Msgbox Data