Label1.Caption в VBA

[a.k.beware]

Подскажите пожалуйста, что не так? выдает ошибку424

Private Sub CommandButton1_Click()
label1.Caption = K
Label2.Caption = F
Label3.Caption = NameSur
Label4.Caption = gr
If K = 1 Then Label5.Caption = "Îòëè÷íî"
If K < 1 Then Label5.Caption = "Ëîïóõ"
End Sub

все пять текстбоксов сделала, переменные задала в модуле.

[a.k.beware]

помогите, ребята!

[Stilet]

А End If разве писать не надо?
И разве Барсик поддерживает оисание в одну строку?

[С.М.С]

Не, не поддерживает, надо что-то типа

If K = 1 Then
Label5.Caption = "Ioee?ii"
End If
If K < 1 Then
Label5.Caption = "Eiioo"
End If

[Camaro Chevelle]

не гоните можно без endов писать в одну строку одну команду, можно и больше, но разлелять команды двоеточиями. а можно и не в одну строку даже, если пользоваться конструкцией "пробел_" например:

if k=1 then label1.caption="0000000"

или так

if k=1 then _
label1.caption="0000000"

и если они всё-таки текстбоксы, а не лабелы, то у текстбоксов свойства caption нет как такового, только text или value. если всё же это лабелы, то всё верно сделано