With Worksheets(1)
    For i = 1 To 50
        If InStr(" " & .Cells(i, 1).Value & " ", " Иван ") Then
            UserForm1.ListBox1.AddItem .Cells(i, 1).Value
        End If
    Next i
End With

.Shapes.Range(Array("ListBox1"))

UserForm1.ListBox