No reconoce ruta

[cadesa]

Hola como estan, quisiera que me ayudarán con una aplicación que no encuentra la ruta para cargar las imagenes, dado que tengo un menu dinamico que crea los botones y carga las imagenes de acuerdo a como se tenga permiso, lo que pasa es que en unas computadoras si se despliegan las imagenes y en otras no, el código que utilizo para cargar las imagenes es:

Código Función que retorna imagenes:

Private Function busca_imagenes(ByVal nombre As String) As Bitmap
        Dim ruta_antes As String = "C:\Program Files"
 
        If Directory.Exists(ruta_antes) = False Then
            ruta_antes = "C:\Archivos de Programa"
        End If
 
        Dim ruta As String = ruta_antes + "\imagenes\"
        ruta = ruta.ToString + nombre.ToString() + ".png"
        Dim imagen As Bitmap
 
        If File.Exists(ruta) = True Then
            Dim img As New DirectoryInfo(ruta)
            imagen = New Bitmap(ruta)
        Else
            imagen = Nothing
        End If
        Return imagen
 

yo creo que esta bien y porque me funciona en unas computadoras pero no se porque en otras no.

Saludos.