Dim vArray() As String
 
  vArray = Split(sfilename, ".")
  msgbox vArray(0)

Beste Wünsche,
Bran
---
Du stolperst nicht durch die Steine die Dir in den Weg gelegt werden,
sondern durch die Einfallslosigkeit ihnen aus dem Weg gehen zu können.