Visual Basic - Exportar datos a excel

Necesito saber como exportar datos de visual a excel

'Debes de Activar la Referencia
'Microsoft Excel 9.0 Object Library
Private Sub Command2_Click()
Dim ApExcel As Excel.Application
Set ApExcel = CreateObject("Excel.application")

ApExcel.Workbooks.Add 'Agrega un Libro
With ApExcel
.Cells(1, 1) = "Prueba" 'Pasar los Datos a Excel
.Cells(1, 2) = "Prueba2"
.Cells(2, 1) = "Prueba3"
.Cells(2, 2) = "Prueba4"
.Range("A1:B10").Font.Color = vbRed 'Color de Letra
.Range("A1:B10").HorizontalAlignment = xlHAlignCenter 'Centrado Hor.
.Range("A1:B10").VerticalAlignment = xlHAlignCenter 'Centrado Vert.
.Range("A1:B10").Font.Name = "Tahoma" 'Nombre Letra
.Range("A1:B10").Font.Size = 11 'Tamaño
.Range("A1:B10").Font.Bold = True 'Negrita
.Range("A1:B10").Font.Italic = True 'Cursiva
.Range("A1:B10").Interior.Color = vbYellow 'Color de Relleno
End With

ApExcel.AlertBeforeOverwriting = False
ApExcel.ActiveWorkbook.SaveAs "Prueba.xls"
ApExcel.Visible = True

Set ApExcel = Nothing

End Sub