[CDR 2017-2021] Разделитель - точка и запятая

[izrukvruki]

Есть форма

    UserForm4.Show
    
    UserForm4.SpinButton1.Value = 1
    UserForm4.SpinButton1.Min = 0

Элемент SpinButton1 имеет код

UserForm4.TextBox1 = UserForm4.SpinButton1.Value / 10

В значении толщины обводки разделитель - точка, а код
s1.Outline.SetProperties Width:=CDbl(UserForm4.TextBox1)
требует чтоб там была запятая...
Как выйти из ситуации?

 

[Alek32]

 s1.Outline.SetProperties Width:=CDbl( Replace( UserForm4.TextBox1 , ".", ","))

 

[_MBK_]

UserForm4.TextBox1

Может, таки UserForm4.TextBox1.Value ?

 

[lev]

Как выйти из ситуации?

Сделайте в системе разделитель точку
или
Присобачьте предварительную обработку строки с заменой одного символа на другой

 

[izrukvruki]

 s1.Outline.SetProperties Width:=CDbl( Replace( UserForm4.TextBox1 , ".", ","))

Так работает

Может, таки UserForm4.TextBox1.Value ?

А так не помогло...

 

[_MBK_]

Я к тому, что писать
Replace( UserForm4.TextBox1 , ".", ",")
некошерно и не совсем правильно
Правильно
Replace( UserForm4.TextBox1.Value , ".", ",")