Ecco come potresti fare:
codice:
Dim var1 As String = "pippo.jpg"
Dim var2 As String = var1.Substring(0, var1.IndexOf("."c))
Su var2 ti trovi "pippo"

Sergio