Encontré la solución:
Dim fCli As frmCLientes
Cita: sub abrirFicha()
For Each forma As Form In Me.ParentForm.MdiChildren
If forma.Text = nombre Then
forma.Focus()
Exit Sub
End I
Next
fCli = New frmCLientes
AddHandler fCli.Closed, AddressOf fCli_Closed
fCli.MdiParent = frmHome1
fCli.Text = nombre
fCli.Show()
end sub
Private Sub fCli_Closed(ByVal sender As Object, ByVal e As System.EventArgs)
End Sub
Lo que está en negrita es lo que he tenido añadir al código.
Saludos