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