Date Calculation Inside TextBox Vba

[Loss1003]

Please see if you can help me rewrite the code below. perhaps a select case or another method might accomplish what I'm trying to do.

 If UserForm1.Date2.Value >= UserForm1.Order1 Then
  UserForm1.Days1.Value = ""
  Exit Sub
  End If

 With UserForm1
          If .Order1 = "" Or .Due1 = "" Then
          .Days1 = ""
    End If
    End With
    
With UserForm1
If .Due1 >= .Order1 Then
.Days1.Value = DateDiff("d", CDate(.TDate1.Value), CDate(.Due1.Value))
  End If
    End With
    
 With UserForm1
        If .Extend1 >= .Order1 Then
        .Days1.Value = DateDiff("d", CDate(.Due1.Value), CDate(.Extend1.Value))
End If
End With

With UserForm1
If .Date2 = "" Then
.Days1.Value = DateDiff("d", CDate(UserForm1.Order1.Value), CDate(UserForm1.Due1.Value))
End If
End With

[snb]

If Date2 >= Order1 or Order1 = "" Or Due1 = "" Then Days1 = "" 
 
If Due1 >= Order1 Then days1 = Duel-Tdate1 
If Extend1 >= Order1 Then Days1 = Exten1- Duel
If Date2 = "" Then Days1 = Duel - Order1

[Loss1003]

I get the method or data member not found error message using

sub tdater1()
If Date2 >= Order1 Or Order1 = "" Or Due1 = "" Then Days1 = "" 
 
If Due1 >= Order1 Then days1 = Duel-Tdate1 
If Extend1 >= Order1 Then Days1 = Exten1- Duel 
If Date2 = "" Then Days1 = Duel - Order1 
end sub

[snb]

Do some close reading.... (using F8 )