vba extract text before dot

[Tornado1981]

Hi,

I need a vba code to be able to extract a text before dot "."
for example:
AAA.xls becomes AAA

Thank u in advance.

 

[Firefly2012]

Hi

One option:

Dim myString As String

myString = Split("AAA.xls",".")(0)

MsgBox myString

 

[Bill Rockenbach]

MyString = Left(DotString, InStr(DotString, ".") - 1)

 

[Tornado1981]

Perfect .. thank u so much

 

[GermanPath]

One way of many options

Sub text_dot()
sText_Source = "AAA.xls"
sText = Split(sText_Source, ".")
MsgBox sText(0)
End Sub

 

[snb_]

if you are referring to a filename:

msgbox createobject("scripting.filesystemobject").getfile("G:\OF\example.xlsx").getbasename