Option Explicit
Dim Rezultat As Long

Private Sub TextBoxDya1_Change()
    Raschet
End Sub
Private Sub TextBoxDya2_Change()
    Raschet
End Sub
Function Raschet()

'For y = 1 To 12 ' Проставляем дни недели из массива в месяце.
    'If CInt(iArr(y)) <> 0 Then ' Массив содержащий номера тех месяцев что используются в МП
        If Me.TextBoxDya1.Value > Me.TextBoxDya2.Value Or Me.TextBoxDya1.Value = 0 Or Me.TextBoxDya2.Value = 0 Then
            Me.TextBoxDya1.BackColor = RGB(255, 83, 73) ' красный
            Me.TextBoxDya2.BackColor = RGB(255, 83, 73) ' красный
        ElseIf Me.TextBoxDya1.Value = "" Or Me.TextBoxDya2.Value = "" Then
            Me.TextBoxDya1.BackColor = RGB(255, 83, 73) ' красный
            Me.TextBoxDya2.BackColor = RGB(255, 83, 73) ' красный
        Else
            Me.TextBoxDya1.BackColor = RGB(255, 255, 255) ' Белый
            Me.TextBoxDya2.BackColor = RGB(255, 255, 255) ' Белый
            Rezultat = Me.TextBoxDya2.Value - Me.TextBoxDya1.Value
            Me.Label1.Caption = Rezultat
        End If
    'End If
'Next y
End Function
 

Private Sub UserForm_Initialize()

    Me.TextBoxDya1.Value = 1
    Me.TextBoxDya2.Value = 30
    
End Sub