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
This post