Dim u As New System.Uri( _
          "http://www.example.com/images/bild1.jpg?A=1#23")
        Dim name As String = u.Segments(u.Segments.Length - 1)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist