Function FindLabel ( [Depth] ) If Round([Depth]) < 0 Then fltDepth = Round([Depth] * -1, 1) Else fltDepth = Round([Depth] , 1) End If strChar = "." intPos = InStr(1, fltDepth, strChar) intLen1 = Len(fltDepth) intLen2 = intLen1 - intPos If intPos <> 0 Then intStart = Left(fltDepth, intPos - 1) intLast = Right(fltDepth, intLen2) 'strOutput = intStart & " " & intLast FindLabel = intStart & "<SUB>" & intLast & "</SUB>" Else FindLabel = fltDepth End If If fltDepth < 0 Then FindLabel = "<UND>" & FindLabel & "</UND>" End If 'FindLabel = strOutput End Function
... View more