Unhandled error

Hej
VB .NEt windows projekt.
Når nedenstående kode kører første gang åbner den som den skal en excel projektmappe. Hvis jeg herefter lukker projektmappen og genåbner den får jeg følgende fejl:

System.NullReferenceException was unhandled
  Message="Object reference not set to an instance of an object."
  Source="HCV"
etc....

Her er koden - den fejler ved: ".Workbooks.Open(sPath & owb)"

Private Sub ToolStripMenuItem1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
        Dim sPath = "\\server\faelles\Index data\Observationsskemaer\"
        Dim owb As String = Cpr & ".obs"
        If Cpr <> "" Then
            If Dir(sPath & owb) <> "" Then
                If Not WorkbookOpen(owb) Then
                    With xlApp
                        .Workbooks.Open(sPath & owb)
                        .Visible = True
                    End With
                Else
                    xlApp.Workbooks(owb).Activate()
                End If
            Else

                Dim Msg, Style, Title, Response
                Msg = "Skal der oprettes et nyt observationsskema?"    ' Define message.
                Style = vbYesNo + vbDefaultButton2    ' Define buttons.
                Title = "Meddelelsesbox"    ' Define title.
                Response = MsgBox(Msg, Style, Title)
                If Response = vbYes Then
                    With xlApp
                        .Workbooks.Open("\\server\faelles\Index\dokumenter\Observationsskabelon\Patient obs.xls")
                        .Visible = True
                        Dim WB = xlApp.ActiveWorkbook

                        With WB.Worksheets("Ordination")
                            .Range("K2").Value = Navn
                            .Range("F2").Value = Cpr
                            .Range("H2").Value = HCV
                        End With

                        WB.SaveAs(Filename:=sPath & Cpr & ".obs")
                    End With

                End If

            End If

            xlBook = Nothing
            xlApp = Nothing

        End If

    End Sub


vh Steen