ayuda listbox

[Monimo]

haces esto:

Código:

cadenita=OpenFileDialog1.FileName


Function mised(sFileName) As String
'tendrás que pasarle :como parámetro cadenita a esta funcion ...

'variables

Dim s, ext, caracter, nombre As String
Dim cuenta, punto, diagonal As Integer



'extraemos el nombre
For cuenta = 1 To Len(sFilename) - 1
caracter = Mid(sFilename, Len(sFilename) - cuenta, 1)

'encontrar el punto y la diagonal
If caracter = "." Then
punto = Len(sFilename) - cuenta
End If
 
If caracter = "\" Then
 diagonal = Len(sFilename) - cuenta
aux = aux + 1

If aux = 1 Then
diagonalp = diagonal
nombre = Mid(sFilename, diagonalp + 1, (punto - diagonalp) - 1)
End If
End If
 'desplegar y construir  el nombre del archivo
 Next cuenta


If Len(sheetr) > 31 Or Len(sheetr) = 31 Then
s2 = Left(sheetr, 31)
End If
mised = sheetr
End Function