Function Algo(ByVal Texto As String, ByVal Clave As String)
Dim i As Long, Tmp As String
For i = 1 To Len(Texto)
If i Mod Len(Clave) = 0 Then
Tmp = Mid$(Clave, Len(Clave), 1)
Else
Tmp = Mid$(Clave, i Mod Len(Clave), 1)
End If
Debug.Print "Texto: " & Mid$(Texto, i, 1) & " " & "Clave: " & Tmp
Next i
End Function
El único inconveniente es que los espacios tambien los cuenta, asi que tendras que usar la funcion palabra por palabra... se puede solucionar fácilmente con un
Split, pero eso te lo dejo a ti