Something like this should work:
srcFile = "\\tstcfile\public\tqp41_15\user.config"
parentFolder = filesys.BuildPath(strHomeFolder, "acroprint")
For Each sf In filesys.GetFolder(parentFolder).SubFolders
If UCase(Left(sf.Name, 5)) = "TQP4_" Then
filesys.CopyFile srcFile, filesys.BuildPath(sf.Path, "4.1.15.23435\"), True
Exit For
End If
Next