UserForm with Colors

[Ks1102]

Experts

I have code here’s want some one can help me modify, the intents just only want if the values of the caption are ( negative ) to shown me colors RED, but getting errors as I only the beginner for this !!

Thanks very much

Private Sub UserForm_Activate()
Sheets("Sheet1").Activate
Label4.Caption = ten30
If Label4.Caption < 0 Then
Label4.ForeColor = vbRed
End If