リストボックスの初期化・状態取得

初期選択状態の指定

InStr関数を使用しています

'strInstsの初期状態で「[野球][音楽]」などの様式の文字列

For i = 0 To lbxInsts.ListCount - 1    'リストボックスの0行から最終行まで反復処理
  strTemp = "[" & lbxInsts.List(i, 1) & "]"
  lbxInsts.Selected(i) = (InStr(strInsts, strTemp) > 0)
Next                                        '繰り返す

選択状態の取得

For i = 0 To lbxInsts.ListCount - 1    'リストボックスの0行から最終行まで反復処理
     If lbxInsts.Selected(i) Then       '選択されている行ならば
　　　　　　'名（表示テキスト）で取得
          insts_members = insts_members & "[" & lbxInsts.List(i, 1) & "]" '値で取得
     End If
Next                                        '繰り返す