Cargar imagen – Vb.net

    Private Sub cargarImagenLogo()
        Try

            Me.OpenFileDialog1.InitialDirectory = "C:\AvikarImg\"
            Dim myStream As Stream = Nothing
            'Me.OpenFileDialog1.RestoreDirectory = True

            'OpenFileDialog1.Title = "Seleccion archivo"
            OpenFileDialog1.Filter = "Todos los archivos|*.*|JPG|*.jpg;*.jpeg|PNG|*.png|GIF|*.gif"
            'Dim extension As String = System.IO.Path.GetExtension(OpenFileDialog1.FileName)

            If Me.OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then

                myStream = OpenFileDialog1.OpenFile()
                If (myStream IsNot Nothing) Then


                    If Me.OpenFileDialog1.FileName <> "" Then

                        imagen = OpenFileDialog1.FileName

                        Dim largo As Integer = imagen.Length
                        Dim imagen2 As String

                        imagen2 = CStr(Microsoft.VisualBasic.Mid(RTrim(imagen), largo - 2, largo))

                        If imagen2 <> "gif" And imagen2 <> "bmp" And imagen2 <> "jpg" And imagen2 <> "jpeg" And imagen2 <> "png" And imagen2 <> "GIF" And imagen2 <> "BMP" And imagen2 <> "JPG" And imagen2 <> "JPEG" And imagen2 <> "PNG" Then
                            imagen2 = CStr(Microsoft.VisualBasic.Mid(RTrim(imagen), largo - 3, largo))

                            If imagen2 <> "jpeg" And imagen2 <> "JPEG" And imagen2 <> "log1" Then

                                sistemaError("Formato Invalido") : Exit Sub
                                If imagen2 <> "log1" Then Exit Sub
                            End If

                            'pictureImgLogo.Load(imagen)
                            'lblNameLogo.Text = imagen
                        End If
                    Else
                        imagen = rutaImagen
                    End If

                    pictureImgLogo.Load(imagen)

                End If
            Else
                'sistemaError("No se ha seleccionado nada")
            End If



        Catch ex As Exception
            sistemaError(ex.Message)
        End Try
    End Sub