Con el OpenFileDialog lo que recuperas es la ruta de la imágen (OpenFileDialog1.FileName), teniendo esto ya puedes cargar el PictureBox:
Código:
Dim d As New OpenFileDialog
d.Filter = "Bitmap (*.bmp)|*.bmp|GIF (*.gif)|*.gif|JPG (*.jpg)|*.jpg"
If d.ShowDialog = DialogResult.OK Then
Dim bmp As New Bitmap(d.FileName)
PictureBox1.Image = CType(bmp, Image)
End If
Saludos