琴さんやるしぇさんに回答をいただきましたが、私の間違いでまったく解決してい
ませんでした。

実行するとFor i = 0 To 1の「0」のfrmMain.CmbDeffenceStyle(i).Textを選択し
た場合は正しく表示されるんですが、その後にFor i = 0 To 1の「1」の
frmMain.CmbDeffenceStyle(i).Textを選択すると「0」の時の
frmMain.CmbDeffenceStyle(i).Textが２度表示されてしまいます。

ブレークポイントを置いてF8で順に追ってみても、frmMain.CmbDeffenceStyle(i).Text
には何も表示されないのでわかりませんでした。

申し訳ありませんが、教えてください。
よろしくお願いします。

Public Sub DeffenceStyle()
Dim i As Integer
Dim PlayerUniformNumber As Long
PlayerUniformNumber = -1
Dim TopicParam2 As Variant
TopicParam2 = "ディフェンスを開始"
    
        If mp.DeffenceStyleChoice(1) = 0 Then
            '0なら抜ける
            Exit Sub
            
        ElseIf mp.DeffenceStyleChoice(1) = -1 Then
            'チーム
            For i = 0 To 1
                If frmMain.CmbDeffenceStyle(i).ListIndex > 1 Then
                    Call DeffenceStyleAddTopic(PlayerUniformNumber, _
                        bbDeffenceStyleTopic, _
            frmMain.CmbDeffenceStyle(i).Text,  TopicParam2)
                End If
            Next
        End If
End Sub

過去の質問と回答を見直して見られたらどうでしょう。
同じ事を何度も繰り返しているようですが？

　http://hanatyan.sakura.ne.jp/hazimeni.htm#keijiban

そうさせていただきます。
ご迷惑をおかけしました。

花ちゃんさん、注意していただいてありがとうございます。
私の熟慮が足りませんでした。
申し訳ありません。

以下のコードで解決しました。
FrmMain（フォームモジュール）
Private Sub CmbDeffenceStyle_Click(index As Integer)
Dim i As Integer
Dim PlayerUniformNumber As Long
PlayerUniformNumber = -1
Dim TopicParam2 As Variant
TopicParam2 = "ディフェンスを開始"

On Error GoTo ErrHandle
        
        If Game.Team(index).DeffenceStyleChoice(1) = 0 Then
            Exit Sub
            
        ElseIf Game.Team(index).DeffenceStyleChoice(1) = -1 Then
            If index = 0 Then
                 If CmbDeffenceStyle(0).ListIndex > 1 Then
                    
                    Call Game.Team(index). _
            DeffenceStyleAddTopic(PlayerUniformNumber, _
                        bbDeffenceStyleTopic, CmbDeffenceStyle(0).Text, _
            TopicParam2)
                End If
            ElseIf index = 1 Then
                If CmbDeffenceStyle(1).ListIndex > 1 Then
                    
                    Call Game.Team(index). _
            DeffenceStyleAddTopic(PlayerUniformNumber, _
                        bbDeffenceStyleTopic, CmbDeffenceStyle(1).Text, _
            TopicParam2)
                End If
            End If
        End If

Exit Sub
ErrHandle:
    CommanErrMsg
    Exit Sub
End Sub