すみません、超初心者です。

Option Explicit

Private Sub cmd_Click(Index As Integer)
On Error GoTo cmd_Click_Err
Select Case Index
'Case 0 '新規作成ボタンを押下
'新しいテキストを追加する
'Case 1 'Lookボタンを押下
'登録されているテキストを呼び出す
'Case 2 '検索ボタンを押下
'DBにつなぐ検索エンジンらしきもののテキストにつなぐ
Case 3 '終了ボタンを押下
'閉じる
Unload Me
EndSelect
Exit Sub
cmd_Click_Err:
Call ErrMsgDisp("cmd_Click_Err")
End Sub

これってどうやって解けばいいのですか？？？
すみません、教えてください