Para que te hagas una idea, esto sería una posibilidad, puedes desarrollarla como quieras.
Dim Parte1 As String, Parte2 As String, Parte3 As String
Open "C:\Prueba.001" For Binary As #1
Parte1 = Space$(LOF(1))
Get #1, 1, Parte1
Close #1
Open "C:\Prueba.002" For Binary As #1
Parte2 = Space$(LOF(1))
Get #1, 1, Parte2
Close #1
Open "C:\Prueba.003" For Binary As #1
Parte3 = Space$(LOF(1))
Get #1, 1, Parte3
Close #1
Open "C:\Prueba.jpg" For Binary As #1
Put #1, 1, Parte1 & Parte2 & Parte3
Close #1
Como ves es muy simple y te será fácil darle la forma mas adecuada. Esta es la idea, el trabajo tienes que hacerlo tu ya que este ejemplo te permite sólo 3 archivos y deberías ponerlo en un bucle que te permita n archivos
Saludos