Как преобразовать строку из ListBox в команду?

Private Sub Label9_Click()
  Caption = "Ok"
End Sub
 
Private Sub List1_Click()
  If List1.ListIndex = 2 Then
    Label9_Click
  End If
End Sub

Option Explicit
 
Private Sub Form_Click()
  CallByName Form1, "Label9_Click", VbMethod
End Sub
 
Public Sub Label9_Click()
  Caption = "Ok"
End Sub

Private Sub List1_Click()
Dim strLine As String
 Dim tmp As String
 Dim n As Integer
On Error Resume Next
' ========== Íà÷àòü ïîèñê â Ëèñòáîêñå 2 ==================
Dim i As Integer
tmp = Trim(List1.Text)
For i = 0 To List2.ListCount - 1
 If InStr(1, List2.List(i), tmp) > 0 Then
 List2.ListIndex = i
 End If
 Next i
 Image1.Picture = LoadPicture(List2.Text)
 Command3.BackColor = &HFFFFFF
 CallByName Form1, List1.Text, VbMethod
 End Sub
Public Sub Label9_Click()
Dim s As String
List1.Clear
Image1.Picture = LoadPicture(App.Path & "\photo\09-Boris.jpg")
'Image2.Picture = LoadPicture(App.Path & "\photo\09-Emma.jpg")
    F = FreeFile
    Open App.Path & "\Data\09.txt" For Input As F
        Do While Not EOF(1)
            Line Input #1, s
          List1.AddItem s
        Loop
        Close #1
   Image2.Top = Image1.Height + 50
   a = App.Path & "\Data\09.txt"
Label115.Caption = Mid(a, InStrRev(a, "") + 1, Len(a) - InStrRev(a, "") + 1)
MsgBox "Label9_Click"
  End Sub