Sorry for the delay, changed the code like this::
Function FindLabel ( [HOLEID] )
RelateFieldOfLayerValues = [HOLEID]
RelateFieldOfLayer = "HOLEID"
RelateFieldOfTable = "HOLEID"
strpTable = "DADO"
iMaxLbl1Sz = 0
iMaxLbl2Sz = 0
iMaxLbl3Sz =0
iMaxLbl4Sz = 0
iSpace = 3
Set gp = CreateObject("esriGeoprocessing.GPDispatch.1")
strWhereClause = chr(34) & RelateFieldOfTable & chr(34) & " = '" & RelateFieldOfLayerValues & "'"
Set prows = gp.searchcursor(strpTable,strWhereClause)
Set prow = prows.next
Do until prow is nothing
strLabel1 = prow.DE
strLabel2 = prow.INTERV
strLabel3 = prow.Fe_pct
strLabel4 = prow.GEO
If (Len(strLabel1) > iMaxLbl1Sz) Then
iMaxLbl1Sz = Len(strLabel1)
End If
If (Len(strLabel2) > iMaxLbl2Sz) Then
iMaxLbl2Sz = Len(strLabel2)
End If
If (Len(strLabel3) > iMaxLbl3Sz) Then
iMaxLbl3Sz = Len(strLabel3)
End If
If (Len(strLabel4) > iMaxLbl4Sz) Then
iMaxLbl4Sz = Len(strLabel4)
End If
Set prow = prows.next
Loop
Set prows = Nothing
if iMaxLbl1Sz + iMaxLbl2Sz + iMaxLbl3Sz + iMaxLbl4Sz + iSpace - Len(RelateFieldOfLayerValues) > 0 Then
'FindLabel = FindLabel & "<UND>" & RelateFieldOfLayerValues & "</UND>" & String(14, "_") & vbnewline
FindLabel = FindLabel & "<UND>" & RelateFieldOfLayerValues & "</UND>" & String(iMaxLbl1Sz + iMaxLbl2Sz + iMaxLbl3Sz + iMaxLbl4Sz + iSpace - Len(RelateFieldOfLayerValues), "_") & vbnewline
FindLabel = FindLabel & "<UND>" & "<CLR red='0' green='0' blue='255'>" & "|"& "FROM(m)"& "|"&"INT(m)"& vbtab & "|"&"Fe(%)" &"|"&"LIT"& String(iMaxLbl4Sz - Len("LIT"), "_") & "|"& "</CLR>"& "</UND>"& vbnewline
Else
FindLabel = FindLabel & "<UND>" & RelateFieldOfLayerValues & "</UND>" & vbnewline
FindLabel = FindLabel & "<UND>" & "<CLR red='0' green='0' blue='255'>" & "|"& "FROM(m)"& "|"&"INT(m)"& vbtab & "|"&"Fe(%)" &"|"&"LIT"& "</CLR>"& "</UND>"& vbnewline
End If
Set prows = gp.searchcursor(strpTable,strWhereClause)
Set prow = prows.next
Do until prow is nothing
strLabel1 = prow.DE
strLabel2 = prow.INTERV
strLabel3 = prow.Fe_pct
strLabel4 = prow.GEO
k1 = iSpace + (iMaxLbl1Sz - Len(strLabel1))
k2 = iSpace + (iMaxLbl2Sz - Len(strLabel2))
k3 = iSpace + (iMaxLbl3Sz - Len(strLabel3))
k4 = iSpace + (iMaxLbl4Sz - Len(strLabel4)) -3
FindLabel = FindLabel & "|"
FindLabel = FindLabel & strLabel1 & "<CLR red='255' green='255' blue='210'>" & String(k1, ".") & "</CLR>"
FindLabel = FindLabel & "|"
FindLabel = FindLabel & strLabel2 & "<CLR red='255' green='255' blue='210'>" & String(k2, ".") & "</CLR>"
FindLabel = FindLabel & "|"
FindLabel = FindLabel & strLabel3 & "<CLR red='255' green='255' blue='210'>" & String(k3, ".") & "</CLR>"
FindLabel = FindLabel & "|"
FindLabel = FindLabel & "<CLR red='255' green='255' blue='210'>" & String(k4, ".") & "</CLR>" & strLabel4 & "|" &vbnewline
Set prow = prows.next
Loop
Set prows = Nothing
End Function