Построить двоичное дерево поиска из N несортированных целых чисел

Итак, я закончил с этим кодом. Я знаю, что это не самый элегантный, поэтому любые улучшения / предложения более чем приветствуются!

Sub fillShape (myShape As Shape)

Dim theAnswer As String
theAnswer = myShape.Name
Dim heroName As String
MsgBox "the name is " & theAnswer

If theAnswer = "Name1" Then
    ActivePresentation.Slides(3).Shapes(8).Fill.UserPicture ("C:\path\Name1.png")
ElseIf theAnwer = "Name2" Then
    ActivePresentation.Slides(3).Shapes(8).Fill.UserPicture ("C:\path\Name2.png")
ElseIf theAnwer = "Name3" Then
    ActivePresentation.Slides(3).Shapes(8).Fill.UserPicture ("C:\path\Name3.png")
Else
    MsgBox "something went wrong "
End If
ActivePresentation.SlideShowWindow.View.Next

End Sub