Auto completar caracteres a la izquierda de cadena String en VB6.

El día de hoy les mostraré el código para obtener una cadena agregando caracteres a la izquierda dentro de visual basic, por ejemplo si la cadena que tenemos es "1" deberá auto completar a 8 caracteres colocando ceros "0" a la izquierda de la siguiente manera: "00000001".

El método que utilizaremos es el siguiente. 

Private Function FormatComplete(ByVal value As String) As String

    Dim resultString As String

    resultString = Right("00000000" & value, 8)

    FormatComplete = resultString

End Function

De está manera la función nos regresará la cadena "String" con los caracteres a la izquierda, espero que les sirva de algo.