Public Function fncSevTextBackColor(pFrm As Form)
    Dim ctl As Control
 
    For Each ctl In pFrm.Controls
        Debug.Print ctl.Name
        If TypeOf ctl Is sevText Then
            With ctl
                .BackColor = vbWindowBackground
                .BackColorFocus = RGB(254, 238, 184)
            End With
        End If
    Next
End Function

fncSevTextBackColor Me