Lo que quieres, que de la variable ruta solo sustraer desde el c:\ y no todo las palabras que te tira o si existe otra forma seria mejor
por sus´prontas muchas gracias
Dim ruta As String
OpenFileDialog1.ShowDialog()
ruta = OpenFileDialog1.ToString