Option Explicit
Dim strText As String

Private Sub Command1_Click()
Dim frm As Form

    strText = "Testing"
    
    'The load event of form 2 will reload form1'
    Form2.Hide
    
    'check if form2 is loaded and unload if it is
    For Each frm In Forms
        If frm.Name = "Form2" Then
            Unload frm
            Set frm = Nothing
        End If
    Next frm

End Sub

Private Sub Form_Load()
    Me.Caption = strText
End Sub

Option Explicit

Private Sub Form_Load()
    Unload Form1
    'To test comment this line and check the caption on form 1
    Set Form1 = Nothing
    Form1.Show
End Sub