Посчитать количество цифр - VB

Option Explicit
 
Dim WithEvents lb As ListBox, lbl2 As Label
Dim WithEvents tx As TextBox
Dim WithEvents cb As CommandButton, l&, t&, w&, h&
Const r = 90, it = "И того: "
 
Private Sub cb_Click()
    lb.Clear
    tx.Text = ""
    lbl2.Caption = it & lb.ListCount
    On Error Resume Next
    tx.SetFocus
End Sub
 
Private Sub tx_Change()
    If tx = "" Then Exit Sub
    With tx
        Select Case CDbl(.Text)
        Case 15 To 380
            lb.AddItem .Text, 0
            lbl2.Caption = it & lb.ListCount
        Case Is > 380
             .Text = Right$(.Text, 1)
             .SelStart = 256
        End Select
    End With
End Sub
 
Private Sub tx_KeyPress(KeyAscii As Integer)
    If KeyAscii = 8 Then Exit Sub
    If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
    
End Sub
 
Private Sub Form_Load()
    l = r: t = r: w = r * 20: h = r * 4
    Set tx = Controls.Add("vb.TextBox", "tx")
    Set lb = Controls.Add("vb.ListBox", "lb")
    Set cb = Controls.Add("vb.CommandButton", "cb")
    Set lbl2 = Controls.Add("vb.label", "lbl2")
    
    With lb
        .Move l, t, w * 2 + r, h * 3: t = .Height + r
        .Visible = 1
    End With
    
    With Controls.Add("vb.label", "lbl1")
        .Move l, t + r, w, h
        .Caption = "Ввод чисел:"
        .Visible = 1
    End With
    With tx
        .Move l + w + r, t, w, h
        .Visible = 1
    End With
    With cb
        .Move l, t + h + r, w, h
        .Caption = "Очистить список"
        .Visible = 1
    End With
    With lbl2
        .Move l + w + r, t + h + r * 2, w, h
        .Visible = 1
    End With
    Me.Caption = "принадлежат [15,380] сектора"
    cb_Click
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("Понравилась программа ?", 68) = vbNo Then Cancel = 1
End Sub