Option Explicit
 
    Private enumCtrl As Collection
    Private WithEvents mvarTB As TextBox
    Private mvarDecimalesAllowed As Boolean
    Private mBuffer As String
    Private mSelStart As Long
    Private mvarNumDecimales As Long
    Private mDP As Integer
    Private key As Integer
 
' TextBox
Public Property Get TextBox() As TextBox
    Set TextBox = mvarTB
End Property
 
Public Property Set TextBox(vData As TextBox)
    Set mvarTB = vData
    mBuffer = mvarTB.Text
    SetSelStart mvarTB.SelStart
End Property
 
' DecimalesAllowed
Public Property Get DecimalesAllowed() As Boolean
    DecimalesAllowed = mvarDecimalesAllowed
End Property
 
Public Property Let DecimalesAllowed(vData As Boolean)
    mvarDecimalesAllowed = vData
End Property
 
' NumDecimales
Public Property Get NumDecimales() As Long
    NumDecimales = mvarNumDecimales
End Property
 
Public Property Let NumDecimales(NumDecimalesNew As Long)
    mvarNumDecimales = NumDecimalesNew
End Property
 
 
Private Sub SetSelStart(NewSelStart)
    If mvarTB.SelLength = 0 Then
        mSelStart = NewSelStart
        mvarTB.SelStart = mSelStart
    End If
End Sub
 
Private Function IsNumericExt(Text As String) As Boolean
    Dim i As Long
    If Len(Text) > 0 Then
        If mvarDecimalesAllowed Then
            IsNumericExt = IsNumeric(Text)
        Else
            For i = 1 To Len(Text)
                Select Case Asc(Mid$(Text, i, 1))
                    Case 0 To 47, 58 To 255
                        IsNumericExt = False
                        Exit Function
                End Select
            Next i
            IsNumericExt = True
        End If
    Else
        IsNumericExt = True
    End If
End Function

Gruss Michael