VB6 For Loop to UBound

For lngLoop = 0 To (UBound(strHL7Message()) - 1) 'Loop thru segments.
' To avoid subscript errors and crashing;
' you only loop to Ubound of structure - 1.
Next 'End loop thru segments.