Сохранить значение TextBox c одной формы при работе на другой

Private Sub mnuOdinItem_Click()
Form3_OneElement.Show
 
End Sub

Private Sub cmd_Form3_OK_Click_Click()
Form3_OneElement.Hide
Form2_NewProject.Show
End Sub

Private Sub cmd_Form2_Delete_Click()
Dim F As Long
    Dim Fn As String
    Dim MyText As String
 
 
Form2_Text1.Text = ""
F = FreeFile
Fn = "E:\example.txt"
 
Open Fn For Input As #F
Do Until EOF(F)
Line Input #F, MyText
If Not MyText Like Form3_Text1.Text Then
    Form3_Text1.Text = Form3_Text1.Text & MyText & vbCrLf
    End If
Loop
Close #F
 
Open Fn For Output As #F
Print #F, Form2_Text1.Text
 
Close #F
End Sub

Form2_Text1.Text = ""

Private Sub CMD1_Click()
'Предварительно записал в Textbox1 число, допустим 5
Dim a As String
a = Text1.Text ' На этом этапе введённое значение успешно записывается в переменную
....
' Далее мне нужно использовать значение переменной a в таком контексте:
If Not MyText Like "*id=""a""*" Then
    Text3.Text = Text3.Text & MyText & vbCrLf
    End If
' Моих знания в работе со строковыми переменными пока недостаточно, а как грамотно загуглить этот вопрос не представляю

If Not MyText Like ИмяФормы.Form3_Text1.Text Then

If Not MyText Like "*id=""21""*" Then
' Где вместо ""21"" нужно использовать число из textbox

fTxt$ = ИмяФормы.Form3_Text1.Text

fTxt$ = ИмяФормы.Form3_Text1.Text
If Not MyText Like "*id=" & fTxt$ & "*" Then

If Not MyText Like "*id="  &  ИмяФормы.Form3_Text1.Text  & "*" Then

a = Form3_OneElement.Form3_Text1.Text
Open Fn For Input As #F
Do Until EOF(F)
Line Input #F, MyText
If Not MyText Like "*id=" & a & "*" Then
    Form2_NewProject.Form2_Text2.Text = Form2_NewProject.Form2_Text2.Text & MyText & vbCrLf
    End If
Loop
Close #F

If Not MyText Like "*id=""" & a & """*" Then