Function Battage(ByVal S1 As String, ByVal S2 As String, ByVal S As String) As Boolean
Dim i As Integer
If Not (S1.Length + S2.Length = S.Length) Then Return False
If S1.Length = 0 Then
For i = 0 To S2.Length - 1
If Not S2.Chars(i) = S.Chars(i) Then Return False
Next i
Return True
End If
If S2.Length = 0 Then
For i = 0 To S1.Length - 1
If Not S1.Chars(i) = S.Chars(i) Then Return False
Next i
Return True
End If
If S1.Chars(0) = S.Chars(0) Then
If Battage(S1.Substring(1), S2, S.Substring(1)) Then Return True
End If
If S2.Chars(0) = S.Chars(0) Then
If Battage(S1, S2.Substring(1), S.Substring(1)) Then Return True
End If
Return False
End Function