Need to change into the function the repeated block in the code below:
______________________________________________________________
Private Sub Form_Open(Cancel As Integer)
Dim t As String, i As Integer, f, r As Double
Dim fs, d, k1
Set fs = CreateObject("Scripting.FileSystemObject")
Set...