преобразование текста в строку

[Composter]

добрый день,уважаемые форумчане.сделал свою функцию по обработке ввода чисел в Textbox и в результате хочу получить числовое значение функции либо single либо double

Function vvod_tolko_cifr(zna4 As String)
zna4 = Replace(Trim(zna4), ",", ".")
If Len(zna4) > 15 Then
    zna4 = Left(zna4, 15)
End If
If Len(zna4) > 0 Then
    For i = Len(zna4) To 1 Step -1
        Select Case i
            Case Is > 1
                If (Not Mid(zna4, i, 1) Like "#" And (Not Mid(zna4, i, 1) Like "." Or InStr(zna4, ".") < i)) Or (Mid(zna4, i - 1, 2) = "00" And InStr(zna4, ".") = 0 And Val(Left(zna4, 2)) = 0) Then 'E+
                    zna4 = Left(zna4, i - 1) & Mid(zna4, i + 1, Len(zna4))
                End If
            Case 1
                If Not Mid(zna4, i, 1) Like "#" And Not Mid(zna4, i, 1) Like "-" Then
                    zna4 = Left(zna4, i - 1) & Mid(zna4, i + 1, Len(zna4))
                End If
        End Select
    Next i
End If
vvod_tolko_cifr = zna4
If Val(zna4) <> 0 Then
    vvod_tolko_cifr = CDbl(zna4)
End If
End Function

понимаю что ошибка где то в последнем цикле,но уже все перепробовал.подскажите как правильно сделать

[WizarD.89]

Composter вам нужно что бы пользователь вводил только цифры?

[Composter]

нужно что бы была возможность вводить как положительные так и отрицательные числа,так и дробные числа.знаю что можно сделать через KeyPress ,но все равно благодаря ему можно в середину ввести - либо вторую точку.

[WizarD.89]

дробные числа это 3,5 или 1/2?

[Composter]

в виде десятичных дробей

[WizarD.89]

вот вам решение задачи

Function vvod_tolko_cifr(zna4 As String)
Dim test As Double
On Error Resume Next
Err.Number = 0
test = val(zna4)
If Err.Number = 0 Then
vvod_tolko_cifr = test
Else
vvod_tolko_cifr = ""
End If
End Function

[Composter]

спасибо,а как сделать чтобы и отрицательные числа можно вводить?

[WizarD.89]

так отрицательные тоже можно вводить

[Composter]

странно ,у меня не получается

Private Sub TextBox1_Change()
    TextBox1.Text = vvod_tolko_cifr(TextBox1.Text)
End Sub

в texbox не вводится минус

[Казанский]

Не надо проверку по Change делать.
Если добавите в код формы эту процедуру, юзер не сможет выйти из редактирования текстбокса, пока там не будет число:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = Not IsNumeric(TextBox1)
End Sub

При желании можно добавить сообщение, окрашивание текстбокса в красный и т.п.