Mostrar el DC de una cuenta en un mensaje de pantalla

Siguiendo una respuesta de Angeles Sebas, una de las expertas del foro, estoy intentando que tomando los datos de entidad, sucursal y nº de cuenta me aparezca en pantalla un mensaje con el DC en access 2007

¿Cómo modifico este código para conseguirlo?

En el formulario 4 cuadros de texto para digitar la entidad, sucursal,
DC y cuenta. Los llamaremos: txtCENTIDAD, txtCAGENCIA, txtDC y txtCCTA
respectivamente.
Después insertar un botón que llamaré Validar
y en el código de ese botón:
Private Sub Verificar_Click()
Dim v1, v2 As Integer
Dim vDC1, vDC2 As String
v1 = 0
v2 = 0
If IsNull(Form!txtCENTIDAD) = True Or
IsNull(Form!txtCAGENCIA) = True Or IsNull(Form!txtDC) = True Or IsNull(Form!txtCCTA)
= True Then
MsgBox "No se puede dejar ningún campo
vacío"
Else
If Len(Form!txtCENTIDAD) <> 4 Or
Len(Form!txtCAGENCIA) <> 4 Or Len(Form!txtDC) <> 2 Or Len(Form!txtCCTA)
<> 10 Then
MsgBox "El nº de dígitos es
incorrecto"
Else
v1 = Mid(Form!txtCENTIDAD, 1, 1) * 4
v1 = v1 + Mid(Form!txtCENTIDAD, 2, 1) * 8
v1 = v1 + Mid(Form!txtCENTIDAD, 3, 1) * 5
v1 = v1 + Mid(Form!txtCENTIDAD, 4, 1) * 10
v1 = v1 + Mid(Form!txtCAGENCIA, 1, 1) * 9
v1 = v1 + Mid(Form!txtCAGENCIA, 2, 1) * 7
v1 = v1 + Mid(Form!txtCAGENCIA, 3, 1) * 3
v1 = v1 + Mid(Form!txtCAGENCIA, 4, 1) * 6
If 11 - v1 Mod 11 = 10 Then
vDC1 = 1
Else
vDC1 = 11 - v1 Mod 11
End If
v2 = Mid(Form!txtCCTA, 1, 1) * 1
v2 = v2 + Mid(Form!txtCCTA, 2, 1) * 2
v2 = v2 + Mid(Form!txtCCTA, 3, 1) * 4
v2 = v2 + Mid(Form!txtCCTA, 4, 1) * 8
v2 = v2 + Mid(Form!txtCCTA, 5, 1) * 5
v2 = v2 + Mid(Form!txtCCTA, 6, 1) * 10
v2 = v2 + Mid(Form!txtCCTA, 7, 1) * 9
v2 = v2 + Mid(Form!txtCCTA, 8, 1) * 7
v2 = v2 + Mid(Form!txtCCTA, 9, 1) * 3
v2 = v2 + Mid(Form!txtCCTA, 10, 1) * 6
If 11 - v2 Mod 11 = 10 Then
vDC2 = 1
Else
vDC2 = 11 - v2 Mod 11
End If
If Trim(Str(vDC1)) + Trim(Str(vDC2)) =
Form!txtDC Then
MsgBox "Cuenta correcta"
Else
MsgBox "Cuenta incorrecta"
End If
End If
End If
End Sub

Creo que es en esa parte donde habría que tocar ¿No?

Gracias anticipadas