Tienes 2 codigos ahi parecidos, pensa bien lo que estas escribiendo, no es programar asi por programar cualquier cosa.
Dices que es vb 2008 asique sera vb.NET no visual basic 6!
Entonces tenes una funcion en .net que es Contains(). La usas asi:

If TextBox1.Text.Contains(".mp3") then
 
msgbox ("Es un archivo .MP3")
 
end if

hey $Edu$ eres el mejor gracias ya termine mi proyecto gracias a ti, te dare creditos por tu ayuda

el tema es que usando Contains estas buscando en la palabra entera, y puede fallar facilmente si tengo esto por ejemplo, un archivo que se llame asi:

hola.mp3.mp4

si pregunto si es "mp3", me va a decir que SI simplemente porque la palabra contiene la palabra "mp3", pero en realidad es extension "mp4".

para traer realmente la extension real se usa esto:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox(IO.Path.GetExtension("miarchivomp3.mp4"))
    End Sub
End Class
 

saludos.

Hola amigo como estas probre tu code pero no me resulto , bueno el problema esta en que cuando escrbo cualquier cosa me aparece un mensaje de que si es .mp4 pero eso no es lo que quiero lo que quiero es que cuando escriba cialquier cosa pues me diga que no es corecto al menos que tenga las ultimas palabras .mp3 o .mp4


En vb.NET hay una variable que dice StartWith que esta es para decir que si el texto no empiesa con lo que se pone en la variable no sucedera nada bueno eso es lo que quiero pero en ves de que empiese , que termine con xxx frase

seba123neo eres mi idolo gracias de corazon gracias a este foro por ser de mucha ayuda ! si pudiera darte puntos te dira muchos ahora mismo gracias