Dim ss As String = "http://www.desof.com./sancrisapp/images/227.jpg"
Dim pos As Int = ss.LastIndexOf("/")
Dim nombreFinal As String
If pos>=0 And ss.Length>pos+1 Then 'protegemos el caso de no encontrado y de si la cadena acaba en "/"
nombreFinal = ss.SubString(pos+1)
End If
Log(nombreFinal)