Como Generar un Excel con hipervinculos desde VB6

[pana99]

Hola, el tema es que estoy creando un excel desde VB6 y anda perfectamente, solo que no puedo lograr que los datos que escribo en una celda tengan un hipervinculo a una determinada direccion
el codigo qeu estoy usando es este:

Private Sub Command1_Click()
Dim ArchSalida As String
Dim objExcel As Object
Set objExcel = CreateObject("Excel.Sheet")

ArchSalida = "C:\pp"
'Hago que Excel no sea visible
objExcel.Application.Visible = False

'Pongo Datos
objExcel.Application.Cells(1, 1).Value = "aaaa"
objExcel.Application.Cells(1, 2).Value = "bbbb"
objExcel.Application.Cells(1, 3).Value = "cccck"

'Le doy formato a algunas
objExcel.Application.Cells(1, 3).Font.Color = vbBlue
objExcel.Application.Cells(1, 3).Font.Underline = True
objExcel.ActiveSheet.Hyperlinks.Add Address:="C:\pp.bmp" (esto no funciona)

' Guardo el archivo
objExcel.SaveAs ArchSalida & ".xls"
' Cierro el Excel
objExcel.Application.Quit

' Libero
Set objExcel = Nothing
End Sub