怎么删除串口获取数据

如何删除串口获取数据

Set Comm = CreateObject("MSCOMMLIB.MSCOMM")

If Comm.PortOpen = False Then

Comm.CommPort = 1                                 
Comm.Settings = "57600,n,8,1"                  
Comm.InputLen = 0                                        
Comm.PortOpen = True
Else
msgbox "Port is already opened！"&vbCRLF
End If

Comm.Output = "+++"  '发送+++命令

Do
Buffer = Buffer&Comm.Input
Loop Until Instr(Buffer,"OK" & vbCRLF)


现在发送第二条命令，怎么删除buffer中的发送第一条命令获取的数据