Как установить текстовое поле в пользовательской форме для дробного значения?

У меня две проблемы с номером фракции в текстовом поле формы пользователя.

1. Как получить значение из листа excel и показать его в текстовом поле с долей. Например, 0,5 (лист) будет отображаться как 1/2 (текстовое поле). не все значения являются дробями, есть также значение для целого числа

Это код для извлечения значения из листа

Set ctlTXT = Me.SizeFrame.Controls.Add("Forms.TextBox.1") ctlTXT.name = "OD" & counter ctlTXT.value = Sheet2.Range("P" & findstart + counter - 1).value ctlTXT.Left = 72 ctlTXT.Height = 15: ctlTXT.Width = 54 ctlTXT.Top = 45 + ((counter - 1) * 17 + 2) 

2. Как вернуть дробное значение, вставленное в текстовое поле пользовательской формы, с помощью оператора выбора case. Из приведенного ниже кода возврат значения невозможен, если 1/2 или 3/4 вставлено в текстовое поле.

Это код для выбора случая

• VBA выводит значение ComboBox в следующую свободную ячейку в столбце
• Ячейка, связанная с текстовым полем ActiveX, возвращающая текст вместо номера
• Код VBA / Macro для получения значения текстового поля
• Excel VBA; UserForm, запуск одного фрагмента кода для разных значений TextBox
• Возвращаемое значение в текстовом поле из Combobox в Excel

 Select Case X Case "1 / 2" Y = 15 Case "3 / 4" Y = 20 Case 2 Y = 40 End Select 

Оба эти кода не являются полным кодом.

 ctlTXT.Value = WorksheetFunction.Text(Sheet2.Range("P" & findstart + counter - 1).Value, "#?/?")