Ошибка - метод Text не найден - VB

Формулировка задачи:

1. вопрос(особо важный)

Private Sub Command1_Click()
 
Label1.Text = "Негр был куплен!!!"
 
If Label1.Text = "Негр был куплен!!!" Then
r = war + 25
z = money - 250
money.Text = z
war.Text = r
End If
 
End Sub

Вот на этот код программа пишет мол метод текст не найден,но в некоторых моих других прогах она нормально работает например: Привет мир. Вот к этому она кидает претензии- (Label1.Text = "Негр был куплен!!!"). Как исправить или что сделать чтобы программа работала также,но на альтернотивном коде?

Решение задачи: «Ошибка - метод Text не найден»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
     
    Label1 = "Негр был куплен!!!"
    If Label1 = "Негр был куплен!!!" Then
    
        'Ввод неизвестных значений
        Do: Money = InputBox("Значение Money ?", , 0)
        Loop Until IsNumeric(Money)
        Do: war = InputBox("Значение war ?", , 0)
        Loop Until IsNumeric(war)
        
        'Вычисление
        Money = Money - 250
        war = war + 25
        
        'Вывод результатов в MsgBox
        s = "Money = " & Money & vbLf & _
                    "war = " & war
        MsgBox s
 
        'Вывод результатов в Label1
        Label1 = Label1 & vbLf & s
 
        'Вывод результатов на форму
        Me.Print s
        
        'Вывод результатов в Immediate
        Debug.Print s
 
 
    End If
 
End Sub
                        