Función FillString

Hola amig@s buen inicio de semana, hoy les traigo algo de programación  pues resulta que en un proyecto que estaba realizando tuve la necesidad de rellenar una cadena con el carácter "0" a la izquierda para que fuera de un tamaño fijo, por lo que busque alguna función en el intellisence del Visual Studio 2010 pero no encontré ninguna que cumpliera con lo que yo necesitaba, después intente buscar en la web pero creí que ya eran demasiadas preguntas a mi amigo Google, así que sin pensarlo mucho me puse a elaborar una pequeña función que realiza dicha tarea, he aquí la implementación de la misma.

Ejemplo de implementación de mi función FillString.

Realmente ya no investigue si existe una función que haga lo mismo, así que si ya existe creo que me puse a reinvente la rueda :D.

Esta función podría ser muy útil cuando tenemos un número de folio consecutivo y deseamos que se impriman los Ceros "0" a la izquierda (eso era  precisamente lo que yo necesitaba :D).

Aquí les dejo el código de la función en VB.Net.

Public Function FillString(ByVal pCadena As String, ByVal pLongitud As Integer, ByVal pCaracter As String) As String
    Dim Resultado As String = String.Empty
    If pCadena.Length < pLongitud Then
      Dim fill As String = String.Empty
      Dim i As Integer

      For i = 1 To pLongitud - pCadena.Length
        fill = fill + pCaracter
      Next

      Resultado = fill & pCadena
    Else
      Resultado = pCadena
    End If

    Return Resultado
  End Function

Aquí les dejo el código de la función en C#.

public string FillString(string pCadena, int pLongitud, string pCaracter)
{
 string Resultado = string.Empty;
 if (pCadena.Length < pLongitud) {
  string fill = string.Empty;
  int i = 0;

  for (i = 1; i <= pLongitud - pCadena.Length; i++) {
   fill = fill + pCaracter;
  }

  Resultado = fill + pCadena;
 } else {
  Resultado = pCadena;
 }

 return Resultado;
}