String.Format

Cuando empecé con esto del .NET encontré una función que desde entonces usé mucho, mucho, mucho y que echo en falta en Visual Basic 6...

Pues bien... aquí teneis una implementación muy sencila (y por supuesto no tan potente como la de .NET) de la función String.Format

    Public Function StringFormat(ByVal format As String, ParamArray args() As Variant)
        Dim I As Long
        For I = LBound(args) To UBound(args)
            format = Replace(format, "{" & I & "}", args(I))
        Next
        StringFormat = format
    End Function

Y un pequeño ejemplo de uso

    MsgBox StringFormat("Hola {0} {1}", "Paco", "Lopez")

Esto es todo por hoy!