アルファベットの大文字小文字を無視するコード

Question

以下は私のコードです。私が望むのは、コードが小文字であろうと両方であろうと、アルファベットの大文字小文字を無視するべきです。

Private Sub CommandButton1_Click() 
Dim ws As Worksheet, tbl As ListObject, row As ListRow 

Set ws = Sheets("Sheet1") 
Set tbl = ws.ListObjects("Table2") 

Dim intValueToFind As String, intValueToFind1 As String, rng As Range, rng1 As Range 

Set rng = tbl.ListColumns(1).DataBodyRange 
Set rng1 = tbl.ListColumns(2).DataBodyRange 


intValueToFind = LCase(Me.ComboBox1.Value) 
intValueToFind1 = LCase(Me.TextBox2.Value) 

If Not rng Is Nothing Then 

    For Each rng In rng 
     If LCase(rng.Value) = intValueToFind Then 
      If Not rng1 Is Nothing Then 
       For Each rng1 In rng1 
        If LCase(rng1.Value) = intValueToFind1 Then 
         MsgBox ("Group Head under this Account Head already Exist. Please enter the Unique Name...") 
         Exit Sub 
        End If 
       Next rng1 
      End If 
     End If 
    Next rng 

End If 


Set row = tbl.ListRows.Add 
row.Range(1, 1).Value = Me.ComboBox1.Value 
row.Range(1, 2).Value = Me.TextBox2.Value 
End Sub 

上記のコードをよくご確認のうえ、間違っています。

Answer 1

念（または大文字）を下げるために、両側をキャスト：

If LCase(rng.Value) = LCase(intValueToFind) Then