无法根据组合框值检索数据

Question

下面是我的Excel vba用户格式代码，其中我比较combobox1的值并将同一行但下一列的值插入其他文本框中。该程序正在运行，但没有给出任何值。

Private Sub verify_Click()
    Dim i As Long    
    For i = 2 To 5    
        If Me.ComboBox1.Value = Sheets("sheet11").Cells(i, "A").Value Then
            Me.date_receipt = Sheets("sheet11").Cells(i, "B").Value
            Me.Subject = Sheets("sheet11").Cells(i, "C").Value
            Me.Branch = Sheets("sheet11").Cells(i, "D").Value
            Me.dispatch_date = Sheets("sheet11").Cells(i, "E").Value    
        End If
    Next i
End Sub