If Len(arrDocNum(i)) = 16 Then arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & vbTab & strDocTitle Else arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & strDocTitle End If If Len(strDocTitle) <= 7 Then arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & vbTab & vbTab & txtSub.Value ElseIf Len(strDocTitle) > 7 And Len(strDocTitle) <= 14 Then arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & vbTab & txtSub.Value ElseIf Len(strDocTitle) > 14 And Len(strDocTitle) <= 23 Then arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & vbTab & txtSub.Value ElseIf Len(strDocTitle) > 23 And Len(strDocTitle) <= 30 Then arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & txtSub.Value ElseIf Len(strDocTitle) > 31 And Len(strDocTitle) < 33 Then arrDocNum(i) = arrDocNum(i) & vbTab & vbTab & txtSub.Value ElseIf Len(strDocTitle) >= 33 Then arrDocNum(i) = arrDocNum(i) & vbTab & txtSub.Value End If