problemas con OPENFILEDIALOG

[lochino006]

Hola tengo un problema con OPENFILEDIALOG quiero que al realizar un click sobre un boton me aparezca un cuadro de dialogo OpenFileDialog y que cargue una imagen en un PictureBox he puesto este codigo pero me da error

'Creamos cuadro de texto abrir para introducir la imagen derecha en el picture box
'Muestra una casilla de verificación de solo lectura
OpenFileDialog1.ShowReadOnly = True
'Indico los tipos de archivos que puedo abrir
OpenFileDialog1.Filter = "Todos los archivos|*|JPEG|*.jpg"
OpenFileDialog1.FilterIndex = 1
'Si damos a la tecla aceptar en el cuadro de dialogo
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
Dim MyImg As Image
Dim NumArch As Integer

NumArch = FreeFile()
'Abrimos el archivo en modo entrada
FileOpen(NumArch, OpenFileDialog1.FileName, OpenMode.Input)
'Leo los datos del archivo y los almaceno en una variable
Input(NumArch, MyImg)
PictureBox1.Image = MyImg
End If

Pero me da error en Input(NumArch, MyImg) porque dice que es conversion invalida me podrian ayudar. Gracias!!

[Maurishio]

Creo que entendi que queres habrir un OpenFileDialog y cuando le das ok te cargue la imagen seleccionada en un picturebox:

Proba esto

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If OpenFileDialog1.ShowDialog() = DialogResult.OK Then

PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)


End If

End Sub