[Resolvido]SetFocus e contarCaracter

Boa a noite a todos, tenho 2 perguntas
1 se tem como eu fazer um setFocus em um campo já preenchido e não selecionar o conteúdo do campo.
2 como eu faço para contar três caracteres no meu campo e parar no quarto carácter para o Usuário continuar preenchendo

1 se tem como eu fazer um setFocus em um campo já preenchido e não selecionar o conteúdo do campo.

Código:

Private Sub Comando0_Click()
If IsNull(Me.txtFocus) Or Me.txtFocus = "" Then Exit Sub

    Dim TamanhoTexto As Byte
    TamanhoTexto = Len(Me.txtFocus)
    Me.txtFocus.SetFocus
    Me.txtFocus.SelStart = TamanhoTexto
    
End Sub

2 como eu faço para contar três caracteres no meu campo e parar no quarto carácter para o Usuário continuar preenchendo
Esta parte não entendi bem mas se for para após digitar 3 caracteres e informar que o usuário deverá preencher o restante utilize a propriedade SelStart da textbox informando como tamanho 3.

Código:

Private Sub txtConta_Change()

    If Len(Me.txtConta.Text) >= 4 Then
        MsgBox ("Maior ou igual a 4"), vbInformation, "Atenção"
    End If
    
End Sub

2 como eu faço para contar três caracteres no meu campo e parar no quarto carácter para o Usuário continuar preenchendo

boa tarde formiga10x, o primeiro deu certo, o segundo vou tentar explicar melhor para ver se você consegue me ajudar.
este procedimento e para numero de telefone celular, vai fazer uma pergunta para o usuário, se o numero do celular tem 9 na frente? se sim colocar a mascar e numero 9 na frente, gostaria que depois que coloca-se a mascare o numero 9 para-se no terceiro carácter para o usuário continuar digitando o numero do celular

este e o código que estou usando, o que esta dando de errado e quando faz o setFocus ai seleciona tudo do campo e se o usuário continuar a digitar apaga tudo.

Código:


    If MsgBox("O celular tem o numero 9?", vbQuestion + vbYesNo, "CELULAR") = vbYes Then
        Me.txt_Fone.InputMask = "# #### - ####"
        Me.txt_Fone = "9  "
        Me.txt_Fone.SetFocus
    Else
        Me.txt_Fone.InputMask = "#### - ####"
        Me.txt_Fone.SetFocus
    End If


No evento ao receber foco da txt_Fone.

Código:

Private Sub txt_Fone_GotFocus()
    If MsgBox("O celular tem o numero 9?", vbQuestion + vbYesNo, "CELULAR") = vbYes Then
    
        Me.txt_Fone.InputMask = "# #### - ####"
        Me.txt_Fone = 9
        Me.txt_Fone.SelStart = 2
               
    Else
    
        Me.txt_Fone = ""
        Me.txt_Fone.InputMask = "#### - ####"
        Me.txt_Fone.SelStart = 0
      
   End If
End Sub

Deu certinho agora, muito obriga formiga10x valeu mesmo.