Visual Basic para Aplicaciones - exportar datos a excell 2000

necesito exportar datos a excel.....

los datos los visualizo con un datagrig ..

Este el el siguiente codigo:
Private Sub Toolbar4_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "CONSULTAR"
Call Conecta
Set T_general = New ADODB.Recordset
T_general.CursorLocation = adUseClient
T_general.Open "SELECT no_serie,marca,modelo,submodelo,no_parte,tipo,eti_desc,usuario_red,estatus,nom_maquina FROM equipo_computo INNER JOIN usuarios ON equipo_computo.responsable = usuarios.nombre ", Bd
Set Grid4.DataSource = T_general
Grid4.Columns(0).Caption = "NUMERO DE SERIE"
Grid4.Columns(1).Caption = "MARCA"
Grid4.Columns(2).Caption = "MODELO"
Grid4.Columns(3).Caption = "SUBMODELO"
Grid4.Columns(4).Caption = "No.PARTE"
Grid4.Columns(5).Caption = "TIPO DE EQUIPO"
Grid4.Columns(6).Caption = "ETIQUETA DESC"
Grid4.Columns(7).Caption = "USUARIO DE RED"
Grid4.Columns(8).Caption = "ESTATUS OPERATIVO"
Grid4.Columns(9).Caption = "NOMBRE DE LA MAQUINA"
'Call DESHABILITABOTONB_CON(CONSULTAS.Toolbar3)


Case "REGRESAR"
'Descarga el formulario de CONSULTAS
Unload CONSULTAS
End Select
End Sub

''''les agredeceria mucho que me ayudaran....