i tring to read an excel cells

Question

i am trying to read excel cell but always appear this: System.MissingMemberException: 'Public member 'Value' on type 'Range' not found.' how can i fix it, i tried whith option Strict off and nothing

here is the program:

Option Strict Off
Option Infer Off
Imports Microsoft.Office.Interop


Public Class Form1

    Dim miAPP As New Excel.Application
    Dim miLibro As Excel.Workbook
    Dim miHoja As Excel.Worksheet


    Private Sub Inicio() Handles MyBase.Load

        miAPP.Visible = True
        miLibro = miAPP.Workbooks.Add
        miHoja = miLibro.Worksheets.Add
        miHoja.Name = "Hoja prueba"

    End Sub

    Private Sub Escribir() Handles btnE.Click

        miHoja.Cells(1, 1) = txtV1.Text
        miHoja.Range("A2", "A3").Value = txtV2.Text
        miHoja.Range("A4:C5").Value = txtV3.Text

    End Sub


    Private Sub FormatoC() Handles chkC.CheckedChanged

        If chkC.Checked = True Then

            Select Case LstC.SelectedItem

                Case "Rojo"
                    miHoja.Range("A1:C5").Font.Color = Color.Red

                Case "Verde"
                    miHoja.Range("A1:C5").Font.Color = Color.Green

                Case "Azul"
                    miHoja.Range("A1:C5").Font.Color = Color.Blue

                Case "Violeta"
                    miHoja.Range("A1:C5").Font.Color = Color.Indigo

            End Select

        Else

            miHoja.Range("A1:C5").Font.Color = Color.Black


        End If


    End Sub

    Private Sub FormatoT() Handles chkT.CheckedChanged

        If chkT.Checked Then

            miHoja.Range("A1:C5").Font.Size = 16

        Else

            miHoja.Range("A1:C5").Font.Size = 12

        End If


    End Sub


    Private Sub Salida() Handles MyBase.FormClosing

        If Not miAPP Is Nothing Then

            miAPP.Quit()

        End If

    End Sub

    Private Sub Nuevo() Handles btnN.Click

        miLibro = miAPP.Workbooks.Add
        miAPP.Visible = True
        miHoja = miLibro.Worksheets("Hoja1")
        btnE.Enabled = True
        BtnL.Enabled = True

    End Sub

    Private Sub Abrir() Handles btnA.Click

        OpenFileDialog1.InitialDirectory = "C:\"
        OpenFileDialog1.Title = "Abrir libro"
        OpenFileDialog1.Filter = "|*.xlsx"
        OpenFileDialog1.FileName = "Libro1.xlsx"

        Dim A As String
        Dim E As Integer

        E = OpenFileDialog1.ShowDialog
        If E = DialogResult.OK Then

            A = OpenFileDialog1.FileName

        Else

            Exit Sub

        End If

        miLibro = miAPP.Workbooks.Open(A)
        miAPP.Visible = True
        miHoja = miAPP.Worksheets("Hoja1")
        btnE.Enabled = True
        BtnL.Enabled = True

    End Sub

    Private Sub FormatoB() Handles chkB.CheckedChanged

        If chkB.Checked Then

            miHoja.Range("A1:C5").Font.Bold = True

        Else

            miHoja.Range("A1:C5").Font.Bold = False

        End If


    End Sub

    Private Sub Guardar() Handles btnG.Click

        If Not miLibro Is Nothing And Not miAPP Is Nothing Then

            miLibro.Save()

        End If

    End Sub

    Private Sub Guardar_como() Handles btnGN.Click

        If Not miLibro Is Nothing And Not miAPP Is Nothing Then


            OpenFileDialog1.InitialDirectory = "C:\"
            OpenFileDialog1.Title = "Abrir libro"
            OpenFileDialog1.Filter = "|*.xlsx"

            Dim E As Integer

            E = SaveFileDialog1.ShowDialog


            If E = DialogResult.OK Then

                miLibro.SaveAs(SaveFileDialog1.FileName)

            End If

        End If

    End Sub

    Private Sub Leer() Handles BtnL.Click


        TxtA4.Text = (miHoja.Cells(4, 1).Value)
        TxtA5.Text = (miHoja.Range("A5").Value)

    End Sub


End Class