Function MakeFriends(ByVal sl As String, ByVal s2 As String) As Integer



End Function