like要如何使用(謝謝你)(編號：8606)

我這邊有一程式要做部份搜尋的功能，此程式已寫成會自動產生亂數姓名，在此程式設計一個Inputbox讓使用者輸入姓名來做搜尋，而現在此程式必須要輸入完整的姓名，才能搜尋到所輸入的姓名，那要如何在能作出部份的功能?部份程式碼如下：Private Sub Command2_Click()
Dim X As String
Dim I, J As Integer
X = InputBox("Input a name")
J = -1
For I = 1 To 15
If myname(I) = X Then
　　J = I
　　GoTo show
　End If
Next I
show:
Picture1.Cls
　If J ＞ 0 Then
　　Picture1.Print J, myname(J), myscore(J)
　Else
　　Picture1.Print "沒有這個人--＞" & X
　End If
End Sub