Ya seba123neo, pero si el archivo lleva comillas?

Public Function GetFiles(ByVal strText As String) As Collection
Dim cTemp                       As New Collection
Dim oRegExp                     As Object
Dim oMatch                      As Object
Dim oMatches                    As Object
 
    Set oRegExp = CreateObject("VBScript.RegExp") 'Evitamos la referencia
 
    With oRegExp
        '// Sería similar a esta, lo único modificar los [\w\s\.] para que acepten algunos símbolos más... xP
        .Pattern = "\s?([\w\s\.]+\:\\([\w\s\.]+\\?)[\w\s\.]+(\.\w{1,})?)\s?"    '// No incluye verificación de ruta (pero... ¿no hace falta no?)
        .Global = True
        .IgnoreCase = True
    End With
 
    Set oMatches = oRegExp.Execute(strText)
 
    For Each oMatch In oMatches
        cTemp.Add oMatch.SubMatches(0)
    Next
 
    Set GetFiles = cTemp
End Function
 
Private Sub Form_Load()
Dim vItem                       As Variant
Const S                         As String = "C:\Frog\Proyecto1.exe ""C:\reto 123.exe"" C:\imagen.png"
    For Each vItem In GetFiles(S)
        MsgBox vItem
    Next
End Sub

Sub getFiles(ByVal args As String, res() As String)
    Dim i As Integer
    Dim e As Integer
    Dim sTmp As String
 
    i = InStr(args, Chr$(34))
    While i > 0
        e = InStr(i + 1, args, Chr$(34))
        sTmp = Mid(args, i, e)
        args = Replace(args, sTmp, Replace(Mid(sTmp, 2, Len(sTmp) - 2), " ", "|"))
        i = InStr(e, args, Chr$(34))
    Wend
    args = Replace(args, " ", "*")
    args = Replace(args, "|", " ")
    res = Split(args, "*")
    e = 0
    For i = 0 To UBound(res) - 1
        If res(i + 1) = "" Then
            i = i + 1
        ElseIf res(i) = "" Then
            res(i) = res(i + 1)
            i = i - 1
            e = e + 1
        End If
    Next
    If e > 0 Then
        ReDim Preserve res(e - 1)
    Else
        'Erase res <---- 
        ReDim res(0)
    End If
End Sub
 

Sub getFiles(ByVal args As String, res() As String)
    Dim i As Integer
    Dim e As Integer
    Dim sTmp As String
 
    i = InStr(args, Chr$(34))
    While i > 0
        e = InStr(i + 1, args, Chr$(34))
        sTmp = Mid(args, i, e)
        args = Replace(args, sTmp, Replace(Mid(sTmp, 2, Len(sTmp) - 2), " ", "|"))
        i = InStr(e, args, Chr$(34))
    Wend
    args = Replace(args, " ", "*")
    args = Replace(args, "|", " ")
    res = Split(args, "*")
    e = -1
    For i = 0 To UBound(res) - 1
        If res(i + 1) = "" Then
            i = i + 1
        ElseIf res(i) = "" Then
            res(i) = res(i + 1)
            i = i - 1
            e = e + 1
        End If
    Next
    If e > 0 Then
        ReDim Preserve res(e - 1)
    ElseIf e = 0 Then
        'Erase res <----
        ReDim res(0)
    End If
End Sub