Private Sub Command1_Click()
Dim a As String, b As String
Dim a1 As String, b1 As String, x1 As Integer
Dim i As Integer, j As Integer, f As Boolean
x1 = 1
a = "acegghhiijjkk"
b = "bdffmmnn"
For i = 1 To Len(b)
For j = x1 To Len(a)
a1 = Mid(a, j, 1): b1 = Mid(b, i, 1)
If a1 > b1 Then
a = Mid(a, 1, j - 1) & b1 & Mid(a, j)
f = True: x1 = j: Exit For
End If
Next
If Not f Then a = a & b1
f = False
Next
Print a
End Sub
tr