Ayuda bloquear texbox excel

hola DAM

Mira

Tengo este Código te acuerdas

Private Sub TextBox9_Exit(ByVal Cancel As MSForms.ReturnBoolean)
' Por .DAM
Select Case Val(TextBox9)
Case 164, 184, 4
TextBox6 = Clear
TextBox6.Enabled = False
Case Else
TextBox6.Enabled = True
End Select
End Sub

Y ESTE OTRO

Private Sub CommandButton6_Click()
'Por.DAM
TextBox4 = ""
If TextBox3 = "" Then
MsgBox "escribe el dato en el campo"
TextBox3.SetFocus
End If
If IsNumeric(TextBox3) Then b = Val(TextBox3) Else b = TextBox3
r = Application.VLookup(b, Sheets("Hoja5").Range("A:B"), 2, 0)
If Not IsError(r) Then
TextBox4 = r
Else
s = MsgBox("El " & TextBox3 & " no existe, desea crearlo:", _
vbYesNo + vbQuestion, "CONSULTAS")
If s = vbYes Then
With UserForm3
.clave = TextBox3
.Show
End With
TextBox3 = ""
TextBox4 = ""
TextBox5.SetFocus
End If
End If
End Sub

pero cuando le doy guardar no me guarda no se por que puedes revisar el código a ver que esta mal