VBA Application.Match bug

Hi, I am a beginner in VBA programming and I had encounter the following bug in :-
i = Application.Match(VBA.String(Me.ComboBox2.Value), sh.Range("A:A"), 0)

Can anyone help explain my mistake : -

Thank you.

Private Sub ComboBox2_Change()

If Me.ComboBox2.Value <> "" Then

    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("sheet1")
    Dim i As String
    
      i = Application.Match(VBA.String(Me.ComboBox2.Value), sh.Range("A:A"), 0)
    
    
    Me.TextBox2.Value = sh.Range("B" & i).Value
    Me.TextBox3.Value = sh.Range("C" & i).Value
    Me.TextBox4.Value = sh.Range("D" & i).Value
    Me.TextBox5.Value = sh.Range("E" & i).Value
    Me.TextBox6.Value = sh.Range("G" & i).Value
    Me.TextBox7.Value = sh.Range("H" & i).Value
    Me.TextBox8.Value = sh.Range("J" & i).Value
    Me.TextBox9.Value = sh.Range("K" & i).Value
    Me.TextBox10.Value = sh.Range("L" & i).Value
    Me.TextBox11.Value = sh.Range("M" & i).Value
    Me.TextBox12.Value = sh.Range("N" & i).Value
    
    
    If sh.Range("I" & i).Value = "Male" Then Me.OptionButton1.Value = True
    If sh.Range("I" & i).Value = "Female" Then Me.OptionButton2.Value = True
    
    Me.ComboBox1.Value = sh.Range("F" & i).Value
    

 End If

End Sub