Public Sub DoSomeThing(ByRef Pfad1 As String, ByRef Pfad2 As String)
FileCopy Pfad1 & "Datei.ext", Pfad2 & "Datei.ext"
End Sub

var1 = "C:\temp1\"
var2 = "C:\temp2\"
Call DoSomeThing(var1, var2)

Public Type FileCopy_t
SourcePath As String
DestPath As String
End Type
Dim Arr(0 To 1) As FileCopy_t

Dim tmpN As Long
Arr(0).SourcePath = "C:\temp1\"
Arr(0).DestPath = "C:\temp2\"
Arr(1).SourcePath = "C:\temp3\"
Arr(1).DestPath = "C:\temp4\"
 
' Nun eine For Next- Schleife
For tmpN = 0 To UBound(Arr,1)
Call DoSomeThing(Arr(tmpN).SourcePath, Arr(tmpN).DestPath)
Next tmpN