Как заменить "." в TextBox на "/" после ввода??

[uralshans]

Как из формы в форму копировать текст из TextBox понятно.

Дело:

Вводим данные такого вида "111.222.333" в TextBox1 на Form2, кликаем кнопку и в TextBox1 на Form1 получаем данные в виде "111/222/333"
Т.е. в TextBox1 на Form1 получаем данные из TextBox1 (Form2) теже самые, только вместо "." должен быть знак "/"

Как сделать?

[Скрипт]

Sub Procedure_1()

    Dim myString_1 As String
    Dim myString_2 As String
    
    myString_1 = "111.222.333"
    myString_2 = Replace(myString_1, ".", "/")
    
End Sub

[uralshans]

Сообщение от Скрипт

Sub Procedure_1()

    Dim myString_1 As String
    Dim myString_2 As String
    
    myString_1 = "111.222.333"
    myString_2 = Replace(myString_1, ".", "/")
    
End Sub

А если вводим не 111.222.333, а например ааа.ббб.ввв

Можно прописать так??
myString_1 = Form1.Textbox1.Value

[Скрипт]

uralshans, я переменные "myString_1" и "myString_2" просто написал, чтобы вам как-то ответить. Обратите внимание только на Replace. С помощью этой функции можно заменить точку на слеш.

[uralshans]

этот код вставляем в Private Sub CommandButton1_Click() ?
или... ?

[uralshans]

Сообщение от Скрипт

uralshans, я переменные "myString_1" и "myString_2" просто написал, чтобы вам как-то ответить. Обратите внимание только на Replace. С помощью этой функции можно заменить точку на слеш.

Можно наглядно поправить код.

[Скрипт]

Private Sub CommandButton1_Click()
    
    'Me - обозначает форму, в которой находится этот код.
    'Me удобно использовать для написания кода:
    'когда ставим точку, то появляется всплывающая подсказка.
    Me.TextBox1.Text = Replace(Me.TextBox2.Text, ".", "/")
    
End Sub

[uralshans]

РАЗОБРАЛСЯ)) СПАСИБО!!