Inserite il seguente codice :

Sub EnableTextBox(tb As Control, ByVal Enabled As Boolean)
    tb.Enabled = Enabled
    If Enabled Then
        tb.BackColor = vbWindowBackground
    Else
        tb.BackColor = vbInactiveBorder
    End If
End Sub