Visual Basic - Como paso de excel a Access pero.......

Hola, tengo que leer una planila Excel con VB 6.0 y luego traspasarla a una base de datos Access.

En general no tengo ningun problema al leer las celdas, el problema se me presenta cuando tengo que identificar una celda que se encuentra combinada, ahi quedo pilla y si bien he buscado en Internet, no he podido encontrar algo que me sirva, es por eso que como ultimo recurso recurro a ustedes a ver si me pueden echar una mano con esto.

A continuacion les mando el codigo que tengo y que me sirve para leer una planilla Excel y que me funciona perfectamente, sin embargo me falta insertar la condicion que me permita identificar la celdas combinada.

*****************************************
Sub carga_eval( NomHoja As String )
*****************************************

'Check for later versions.
If Val(excel_app.Application.Version) >= 8 Then
excel_app.worksheets(NomHoja).Activate
End If

row = 23 'fila de inicio

xn_psalud = Trim$(excel_app.Cells(row, 2))

Do While Not IsEmpty(xn_psalud)

xd_psalud = Trim$(excel_app.Cells(row, 3))
'xn_tipo = Trim$(excel_app.Cells(row, 4))
xd_tipo = Trim$(excel_app.Cells(row, 4))
xdetalle = Trim$(excel_app.Cells(row, 5))
xcodigo = Trim$(excel_app.Cells(row, 6))
xpresta = Trim$(excel_app.Cells(row, 7))
xmes_01 = Trim$(excel_app.Cells(row, 16))
xmes_02 = Trim$(excel_app.Cells(row, 17))
xmes_03 = Trim$(excel_app.Cells(row, 18))
xmes_04 = Trim$(excel_app.Cells(row, 19))
xmes_05 = Trim$(excel_app.Cells(row, 20))
xmes_06 = Trim$(excel_app.Cells(row, 21))
xmes_07 = Trim$(excel_app.Cells(row, 22))
xmes_08 = Trim$(excel_app.Cells(row, 23))
xmes_09 = Trim$(excel_app.Cells(row, 24))
xmes_10 = Trim$(excel_app.Cells(row, 25))
xmes_11 = Trim$(excel_app.Cells(row, 26))
xmes_12 = Trim$(excel_app.Cells(row, 27))

rcsEval.AddNew
rcsEval!estab = xcodEstab
rcsEval!n_psalud = xn_psalud
rcsEval!d_psalud = xd_psalud
rcsEval!n_tipo = xn_tipo
rcsEval!d_tipo = xd_tipo
rcsEval!detalle = xdetalle
rcsEval!codigo = xcodigo
rcsEval!presta = xpresta
rcsEval!mes_01 = xmes_01
rcsEval!mes_02 = xmes_02
rcsEval!mes_03 = xmes_03
rcsEval!mes_04 = xmes_04
rcsEval!mes_05 = xmes_05
rcsEval!mes_06 = xmes_06
rcsEval!mes_07 = xmes_07
rcsEval!mes_08 = xmes_08
rcsEval!mes_09 = xmes_09
rcsEval!mes_10 = xmes_10
rcsEval!mes_11 = xmes_11
rcsEval!mes_12 = xmes_12
rcsEval.Update

row = row + 2

xn_psalud = Trim$(excel_app.Cells(row, 2))

Loop

End Sub