[Resolvido]Contar caracteres

Pessoal

Estou com uma duvida que é o seguinte..

como faço para contar os caracteres de uma célula, porem precisa ser via VBA..

tentei usar o LEN, porem nao obtive sucesso..

eu preciso fazer um if..onde se a quantidade de caracteres seja igual a 11, senao...olha a celula abaixo...e assim sucessivamente...

obrigado

Private Sub CaixaTexto1_Change()
Me.CaixaTexto1.AutoTab = False
If Len(CaixaTexto1.Text) = 11 Then
DoCmd.GoToControl "CaixaTexto2"
Else
Exit Sub
End If
End Sub

Obrigado JPaulo

Ótima lembrança.