Shocker.Pro,
в TextBox ввожу цифры 0,2, потом по нажатию CommndButton происходит событие
Worksheets("Recept").Cells(tbScet_row, 12).NumberFormat = "0.00" (преобразует ячеку к чиловому формату)
Worksheets("Recept").Cells(tbScet_row, 12).Value = tbKolUPak.Text (вводится текст в определенную ячейку)
это число вставляется в ячейку с пометкой как текст и при это формат у ячейки остается числовой, если ввести 0.2 т.е. через точку то вставляется нармально = 0,20
необходимо вводить в TextBox число 0,2 или 0,55 и чтобы оно как число записывалось в ячеку как число
Неподскажешь в чем проблема ?

Shocker.Pro,
Я дописал функцию
Worksheets("Recept").Cells(tbScet_row, 12).Value = CSng (tbKolUPak.Text)
но теперь когда вводишь 2.5 или символ форма закрывается и выдает ошибку несоответствие типов.
Я так полагаю надо написать проверку, что нужно вводить только цифры и запятую ?

Shocker.Pro,

Большущие Спасибо!!!

нашел код корый проверяет, что бы можно было вводить цифры, пробел и -
он работает только на половину т.е. вводишь циры ошибка не выходит вводишь символ на английской расскладке выдает ошибку, но если ввести символ на русской раскладке вывалется по ошибке (Invalid procedure call or argument (Error 5)).
Private Sub tbSnils_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim Errors
If InStr("0123456789- ", Chr(KeyAscii)) = 0 Then
KeyAscii = 0
Errors = MsgBox("1")
End If
End Sub

Shocker.Pro,
Что можете посоветовать ?

Shocker.Pro,

Написал код для проверки:
Private Sub tbSnils_Change()
If Pr = True Then
Pr = False
Exit Sub
End If
Proverka
End Sub

Private Sub tbSnils_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 8 Or KeyCode = 46 Then
Pr = True
End If
End Sub

Sub Proverka()
Dim P As Variant
For i = 1 To Len(UserForm.tbSnils.Text)
P = Mid(UserForm.tbSnils.Text, i, 1)
If P < Chr(48) Or P > Chr(57) Then
If P < Chr(150) Or P > Chr(150) Then
If P < Chr(32) Or P > Chr(32) Then
If P < Chr(160) Or P > Chr(160) Then
If P < Chr(45) Or P > Chr(45) Then
MsgBox ("Вводить можно только цифры и - (шаблон ###-###-### ##)")
Exit Sub
End If
End If
End If
End If
End If
Next
'UserForm.tbSnils.SetFocus
End Sub

Shocker.Pro,

Написал код для проверки:
авторPrivate Sub tbSnils_Change()
If Pr = True Then
Pr = False
Exit Sub
End If
Proverka
End Sub

Private Sub tbSnils_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 8 Or KeyCode = 46 Then
Pr = True
End If
End Sub

Sub Proverka()
Dim P As Variant
For i = 1 To Len(UserForm.tbSnils.Text)
P = Mid(UserForm.tbSnils.Text, i, 1)
If P < Chr(48) Or P > Chr(57) Then
If P < Chr(150) Or P > Chr(150) Then
If P < Chr(32) Or P > Chr(32) Then
If P < Chr(160) Or P > Chr(160) Then
If P < Chr(45) Or P > Chr(45) Then
MsgBox ("Вводить можно только цифры и - (шаблон ###-###-### ##)")
Exit Sub
End If
End If
End If
End If
End If
Next
End Sub
Проверка работает, но елси происходит событие KeyDown и после етого ввести символ или что то скопировать, то ошибка не выходит если не попробовать еще раз. Подскажите как можно поправить или почему так происходит ?

Shocker.Pro, Pr

глобальная переменная которая позволяет отлавливать нажатия KeyCode=8 (BackSpace) и KeyCode=46 (Del) что бы можно было удалять введнный текст и проверка в этот момент не работала.

Shocker.Pro,
Да работает, но поле удаление каждого символа выходит сообщение :(
т.е. текст= Word после нажатия BackSpace появится сообщение об ошибке и так 4 раза если нажимать BackSpace. Поэтоу решил так написать чтобы можно было спокойно удалять текст.

SashaM, Я рад бы ее использовать, MaskEdBox есть в списке компонентов, но когда ее пытаешься добавить в TextBox появляется ошибка "Субъект не имеет доверия для выполнения указанного действия" надо ее зарегистрировать, а я форму хочу использовать не на одном компе + они находятся в разных местах города дык елси 30 -или 80 компов это не вариант поэтому и пытаемся велосипед изобрести :)

SashaM, а подробней можете написть ?

SashaM, Попробовал не получилось все прописал к реестре как написано

SashaM, Да он самый

Вот поэтой причине и пытаюсь написать сам проверку или что то похожее на маску.
Ибо патом присидать так на каждом компе тоже не вариант.

vlth,
а VB SP6 просит
in order to install Cumulative update For Ms. Visual Basic SP6, you must have
Ms. Visual Basic 6.0 Product Installed

спасибо всем за помощь буду дальше думать как решаит эту проблему

SashaM, Ваш Project1.exe запускается, а Дальше чего с ним делать ?

Konst_One,
т. е. на каждом компе, где я буду использовать форму надо будет установить VB6 ?