Function ss(str As String)     Dim indexA, indexR, length As Integer     Dim cd1, cd2, cd3, cd4, cd5, prefix, suffix As String     Dim arr() As&...