Option Explicit

Private Sub Command1_Click()
Dim t1 As Long
Dim t2 As Long
Dim t3 As Long
Dim t4 As Long
Dim suma As Long

t1 = 12345
t3 = 12
For t2 = 0 To 99999
    For t4 = 0 To 99
        suma = t1 + t2 + t3 + t4
        If suma = 79558 Then
            Debug.Print CStr(t1) + "-" + padNum(t2, 5) + "-" + CStr(t3) + "-" + padNum(t4, 2)
        End If
    Next t4
Next t2
End Sub

Function padNum(Numero As Long, LargoStr As Byte) As String
Dim strAux As String

strAux = CStr(Numero)
If LargoStr = 5 Then
    If Len(strAux) < 5 Then
        padNum = String(5 - Len(strAux), "0") + strAux
    Else
        padNum = strAux
    End If
Else
    If Len(strAux) < 2 Then
        padNum = "0" + strAux
    Else
        padNum = strAux
    End If
End If
End Function