ublic Function HelperGetHBT _
( _
Optional ByVal ipStart As Long = 1, _
Optional ByVal ipRun As Long = 0, _
Optional ByVal ipEnd As Long = 0 _
) As Variant
Dim myHBT As Variant
myHBT = Array(vbNullString, vbNullString, vbNullString)
Dim myStartRun As StartRun
Set myStartRun = HelperGetPositiveStartRunFromAnyStartRunEnd(ipStart, ipRun, ipEnd)
'Determine head
If myStartRun.Start = 1 Then
myHBT(0) = vbNullString
Else
myHBT(0) = VBA.Mid$(p.Value, 1, myStartRun.Start - 1)
End If
'Determine Body