Visual Basic para Aplicaciones - Digito de control

Hola necesito de vuestra ayuda ya que soy novatillo con Visual Basic.
Vereis estoy haciendo un formulario donde introduzco en un label el número correspondiente a una entidad bancaria, en otro label el numero de la agencia bancaria y en otro el numero de la cuenta y necesito que me calcule el DIGITO DE CONTROL para conprobar que no se ha cometido ningún error al introducir los datos, no tengo ni idea de como hacerlo. agradeceria vuestra ayuda.
Gracias

hola, veo que no te ha contestado nadie a tu consulta, a continuación te remito un pequeño programa que tengo hecho para hacer lo que pides,
el modulo .bas no es mio lo he bajado de la red.
si tienes algun problema me lo dices y trataremos de solucionarlo.

Private Sub Command1_Click()
Label1.Caption = CalculaCCC(Text1.Text, Text2.Text, Text3.Text)
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label1.Caption = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
mensa& = MsgBox("SOLO SE ADMITEN NUMEROS EN ESTE CAMPO", 16, "!! ATENCION ¡¡")
Text1.Text = ""
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
mensa& = MsgBox("SOLO SE ADMITEN NUMEROS EN ESTE CAMPO", 16, "!! ATENCION ¡¡")
Text2.Text = ""
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
mensa& = MsgBox("SOLO SE ADMITEN NUMEROS EN ESTE CAMPO", 16, "!! ATENCION ¡¡")
Text3.Text = ""
End If
End Sub
-----------------------
MODULO .BAS
-----------------------

Option Explicit

Function CalculaCCC(entidad As String, oficina As String, cuenta