error 9

[ebu]

Dim a As String
Dim aText() As String, s As String, variable As String

a = swModel.GetPathName
aText = Split(a, "\")
s = aText(UBound(aText))
variable = Left(s, InStr(s, ".") - 1)

lo q hace es guardar el nombre de una pieza en variables sabiendo su ruta. lo he usado en otros programas q he exo y nunca me a dado problemas, no se??