VB.net check whether a file is opened or not

Dim excel_file_opened As Boolean = False

Private Sub Test(ByRef sName As String)

        Dim fs As FileStream
        Try
            fs = File.Open(sName, FileMode.Open, FileAccess.Read, FileShare.None)
            excel_file_opened = False
            fs.Close()
        Catch ex As Exception
            excel_file_opened = True
        End Try
    End Sub