What is the content of str1 ?
What do you do with str1.SubString2(8,10) & "-" & str1.SubString2(5,7) & "-" & str1.SubString2(0,4) ?
Just, be aware of this 'The new string will include the character at BeginIndex and will extend to the character at EndIndex, not including the last character'.
Best regards.
Changed my code to:
If str1 <> "" Then
sel.Second = sel.Second &" / " & str1.SubString2(8,10) & "-" & str1.SubString2(5,7) & "-" & str1.SubString2(0,4)
End If
I used the code to change a date field from YYYYMMDD to DD-MM-YYYY.