Ho risolto così ... grazie lo stesso!
codice:
Private Sub cmbData_BeforeUpdate(Cancel As Integer)
    Dim m As Integer
    m = Month(Me.cmbData.Value)
    
    If m > 1 And m < 6 Then
        Me.txtQuadrimestre.Value = 2
    Else
        Me.txtQuadrimestre.Value = 1
    End If
End Sub