Visual basic

Siento haber tardado tanto en responder, pero estaba de vacaciones ...
Puedes hacer algo así:
dim i as integer
dim j as integer
dim palabra1 as string
dim palabra2 as string
dim Concatenada as string
concatenada = ""
j = 1
For i = 1 To Len(palabra1)
concatenada = concatenada & mid(palabra1, i, 1)
If j <= Len(palabra2) Then
concatenada= concatenada & Mid(palabra2, j, 1)
j = j + 1
End If
Next
if Len(concatenada) < Len(palabra1) + Len(palabra2) Then
For i = j To Len(palabra2)
concatenada = concatenada & Mid(palabra2, j, 1)
Next
End If