Como hago para encontrar y reemplazar el valor de un rango

Hola tengo este código diseñado por Dam, tengo un userform en el cual me permite ingresar un nombre de usuario en el textbox1 y busca el valor en la celda de la columna A, e ingreso una contraseña en el textbox2 y busca el valor en la misma celda pero de la columna B y me funciona perfectamente, lo que quisiera es adicionarle un textbox3 en mi userform que me permita encontrar y reemplazar el valor que está en la celda de la columna B pero sin borrar el contenido de la celda de la columna A, ósea cambiar la contraseña que ya existe en el rango de la columna B, por ejemplo, en la celda A3 tengo el nombre de usuario Dolka, en la celda B3 tengo la contraseña 123, quisiera que me de la opción con el textbox3 de poder reemplazar la contraseña 123 por una nueva, en el texbox1 ingresar el nombre de usuario, en el texbox2 ingresar la contraseña anterior, en el textbox3 ingresar la nueva contraseña. Muchas gracias, aquí les dejo el código.        

Private Sub CommandButton1_Click()

'Por.DAM

Set h7 = Sheets("Hoja7")

If TextBox1 = "" Then

MsgBox "Digite el nombre de usuario", vbCritical, "ACCESO"

TextBox1.SetFocus

Exit Sub

End If

If TextBox2 = "" Then

MsgBox "Digite la contraseña para continuar", vbCritical, "ACCESO"

TextBox2.SetFocus

Exit Sub

End If

If TextBox3 = "" Then

MsgBox "Digite la nueva contraseña", vbCritical, "ACCESO"

TextBox3.SetFocus

Exit Sub

End If

Set b = h7.Range("A:A").Find(TextBox1, lookat:=xlWhole)

If b Is Nothing Then

MsgBox "Nombre Usuario Incorrecto", vbSystemModal, "ACCESO" 'Manda el mensaje

Me.TextBox1.Text = ""

TextBox1.SetFocus

Exit Sub

End If

If h7.Cells(b.Row, "B") <> TextBox2 Then

MsgBox "Contraseña Incorrecta", vbSystemModal, "ACCESO" 'Manda el mensaje

TextBox2.Text = ""

TextBox2.SetFocus

Exit Sub

End If

' Muestra recordatorio que se debe activar la aplicación

If Date <= "30/07/2014" Then

   MsgBox "No se puede cambiar la fecha del sistema, El tiempo ya expiró. Ingresa clave:"

   Exit Sub

   End If

   If Date >= "01/09/2014" Then

   MsgBox "No se puede continuar, El tiempo ya expiró. Ingresa clave:"

   Exit Sub

   End If

   'al llegar esta fecha se bloquea la aplicación

If Date >= "06/08/2014" Then

clave = InputBox("El tiempo ya expiró. Ingresa clave: ")

If clave = "" Then Exit Sub

If clave <> "abc" Then

MsgBox "Clave incorrecta, no se puede iniciar la aplicación", vbCritical

Exit Sub

Unload Me

   Else

End If

End If

Unload UserForm13

UserForm9.Show

End Sub