Utilize as instruções abaixo :

Private Sub UserForm_Initialize()
    With Me.TextBox1
        .Value = 1
        .SetFocus
        .SelStart = 0
        .SelLength = Len(.Text)
    End With

End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    'Limita a Qde de caracteres
    TextBox1.MaxLength = 2
       
    'para permitir que apenas números sejam digitados
    If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
        KeyAscii = 0
    End If
       
End Sub

Reaberto a pedido.

De: MPrudencio
Para: Mauro Coutinho

Boa noite peço por favor reabrir o topico sobre textbox que criei ainda a pouco, preciso resolver uma pequena pendencia que acabou de surgir que é permitir a digitação de valores decimais por exemplo

0,200

Troque por esta, e veja se é isto :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    'Limita a Qde de caracteres
    TextBox1.MaxLength = 5
    
    Select Case KeyAscii
        'para permitir que apenas números sejam digitados
        Case Asc("0") To Asc("9")
        
        'Aceitar somente a Virgula
        Case Asc(",")
            If InStr(1, Me.TextBox1.Text, ",") > 0 Then
                KeyAscii = 0
            End If
        Case Else
            KeyAscii = 0
    End Select

End Sub

Mauro a ideia é digitar numeros decimais, por isso a necessidade de utilizar a virgula

Mauro a ideia é digitar numeros decimais, por isso a necessidade de utilizar a virgula

Com esta última rotina que passei, ela foi ajustada exatamente para que se aceite a virgula.

Isso que da não testar antes de comentar, sofrendo do proprio veneno, como vi a virgula em separado achei (não devia), que ia somente aceitar a virgula e nao os dois grupos juntos.

Funcionou perfeitamente.