Visual Basic para Aplicaciones - DUDA URGENTE... (please)

Hola Grupo:

como hago para sacar los valores a una hoja de calculo excel de la eiguiente expresión:

Private Sub CmdAñadir_Click()
Dim i As Integer
For i = 0 To lstRequerimientos.ListCount - 1
If lstRequerimientos.Selected(i) = True Then
lstRequeridos.AddItem _
lstRequerimientos.List(i)
lstRequerimientos.RemoveItem i
lstRequerimientos.Selected(i) = False
End If
Next i

End Sub

Añade la linea range("a" & i).formula=istreq.list(i)