EXCEL VBA コンボボックスに指定リストがあるか

'コンボボックスに指定リストがあるか
'
'URL https://pgbigoroku.hatenablog.com/entry/2022/08/15/100527
'Ver.2022.8.15
Public Function nipblnコンボボックスに指定リストがあるか(ByRef pcmb代入先 As ComboBox, _
                                                    ByVal pstr検索文字 As String) As Boolean
    Dim strFor As String
    Dim intFor As Integer
    For intFor = 0 To pcmb代入先.ListCount - 1
        If strFor = pstr検索文字 Then
            nipblnコンボボックスに指定リストがあるか = True
            Exit Function
        End If
    Next
    nipblnコンボボックスに指定リストがあるか = False
End Function