Buenas, comprueba el estado del check y si es 1 lo desabilitas.

Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.Enabled = False
Else
Text1.Enabled = True
End If
End Sub