Con strings pequeñas dura igual o menos que el mid original, pero con strings muy grandes, tarda bastante más que el original...
Código: Seleccionar todo
Private Function sMid(sStr As String, sStart As Long, sLn As Long) As String
sMid = Left$(sStr, sStart + sLn - 1)
sMid = Right$(sMid, sLn)
End Function
