Тяжело, наверное умному и красивому, когда в Гугле забанили?
Вторая ссылка ведёт на Excel VBA Dictionary – A Complete Guide. Со списками - тоже самое - ищите и обрящете.

Вставьте в форму UserForm1 невидимый лейбл Label1.
Label1: AutoSize = True, Visible = False, Фонт такой же как и у TextBox1 (имя, размер, жирность, курсив).
Поиграйте с коэффициентом 1.1, если не влезает.

Private Sub TextBox1_Change()
    Label1.Width = UserForm1.Width
    Label1.Caption = TextBox1.Text
    
    If Label1.Width > TextBox1.Width Then
        Label1.Font.Size = Label1.Font.Size * (TextBox1.Width / Label1.Width / 1.1)
        TextBox1.Font.Size = Label1.Font.Size
    End If
End Sub

{=СУММ(ЕСЛИ(ЕЧИСЛО(ПОИСК(E6;$A$1:$A$3));1;0))}
или
{=SUM(IF(ISNUMBER(SEARCH(E6;$A$1:$A$3));1;0))}

где $A$1:$A$3 - Ваш массив строк,
E6 - содержит искомый "арбуз",
{} означает операцию с массивом (Ctrl+Shift+Enter при вводе формулы).

Ошибок несколько:
1.

Dim Number, Minimum, Room, Product, Data, X As Double

вовсе не означает, что все переменные имеют тип Double. В VBA каждой переменной надо задавать отдельный тип:

Dim Number As Integer, Minimum As Double, Data As Double, Room As Integer, Product As Double, X As Double

Так, инициализация, которую привели Вы, инициализирует как Double только последнюю переменную. Все остальные инициализируются как Variant. Таким образом, Data у Вас получается текстовой переменной поскольку извлекается из InputBox. Это приводит к тому что "-1" < "-2" (1 < 2).

2. Из If Data > Minimum Then Вы находите не минимум, а максимум.

3. Имена, такие как"Data", "Minimum"... лучше не использовать - можете нарваться на функцию с таким же именем. В VBA Вам повезло, в других языках может и не повезти.

Работающий код:

If X = 1 Then
        Minimum = Data
        Room = X
    End If
    
    If Data < Minimum Then
        Minimum = Data
        Room = X
    End If
    
    If Data < 0 Then
        If Product = 0 Then
            Product = Data
        Else
            Product = Product * Data
        End If
    End If